fAltom  _____ 


jGflTfls  STORE  PROGRAMBLAD: 
i&EPTEMBER/OKTOBER  1985  0 
(NR.  5  -  KR.  27.8502^^ 


COMMODORE  64 


W. _ >  > 

rj§ 

SOFT  SPECIAL  ex  fremstillet 
al  redaktionen  på  måneds¬ 
bladet  ’  'Alt  om  Data' ' .  Samt¬ 
lige  aftrykte  programUstnin- 
ger  er  alpravet  og  gengivet 
efter  korrektur. 


Redaktion: 

Hans  Chr.  Thaysen. 

Leil  Bomberg 
Klaus  Nordleld  (ansv) 

Ivan  Sølvason 

Udgiver: 

SOFT  SPECIAL  udgives  al  For¬ 
laget  Ny  Elektronik  ApS.  St. 
Kongensgade  72.  1264  Kø¬ 
benhavn  K.  Giro:  9  40  60  77. 

Produktion: 

Hans  Chr.  Thaysen 
ABK-Sats  ApS 
Partner  Repro 
Lassen  Offset 

Distribution: 

Bladkompagniet 

ISSN  0109-9523 

Laver  du  gode 
programmer? 

Små  eller  store,  sjove  eller 
seriøse  til  de  populære  com¬ 
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"Alt  om  Data"  eller  "Solt” 
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■  Hvem  kender  ikke  GHOST- 
BUSTERS,  DECATHLON  eller 
PITFALL II? 

Allesammen,  vel  nok.  Men 
kender  du  også  manden  bag 
disse  software  bestsellere,  der 
kører  i  over  6  millioner  eks¬ 
emplarer  verden  over.  Plus 
sikkert  lige  så  mange  i  pirat¬ 
kopier. 

Han  hedder  David  Crane,  er 
30  år  og  ligner  alt  andet  end 
en  spilfanatiker.  "Soft  Speci¬ 
al'  '  traf  David  under  et  besøg 
i  London,  og  naturligvis  måtte 
Crane  underkaste  sig  et  "3. 
grads  forhør' ' .  Men  først  lidt  hi¬ 
storie  .  .  . 

I  1979  arbejdede  David  Cra¬ 
ne  for  Atari.  Sammen  med  tre 
andre  kollegaer  besluttede 
han  at  grundlægge  det  ual- 
hængige  softwarehus  Activi- 
sion,  hvis  erklærede  mål  var 
at  lave  bedre  software  til  Ata- 
ris  TV-spil  end  Atari  selv  kun¬ 
ne. 

I  lang  tid  koncentrerede  Ac- 
tivision  sig  da  også  udeluk¬ 
kende  om  Atari  -  f.eks.  med 
STAR  MASTER.  PLAQUE  AT- 
TACK  og  KEYSTONE  KAPERS  - 
og  først  for  ni-ti  måneder  siden 
ændrede  Activision  officielt 
signaler  for  at  blive  mere  alsi¬ 
dig.  I  dag  har  Activision  130 
mennesker  ansat,  og  hoved¬ 
sædet  ligger  i  Mountain  View 
midt  i  Californiens  legendari¬ 
ske  Silicon  Valley. 

David  Crane  fortæller,  at  han 
bruger  mellem  8  måneder  og 
1  år  til  at  skabe  et  nyt  compu¬ 
terspil.  Hver  del  bliver  testet 
ved  at  spille  med  det.  På  den 
måde  ser  jeg  lynhurtigt,  om 
spillet  fungerer,  og  om  det 
kan  fænge  publikum,  siger 
David. 
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selv  lor  at  se,  om  min  Idé  er 
fængende  og  kan  holde  hos 


det  store  publikum. 


Et  naturligt  spørgsmål  til  Cra- 
ne  var  selvfølgelig,  hvordan 
han  udviklede  og  tik  ideen  til 
GHOSTBUSTERS . 

-  I  starten  kan  jeg  gå  længe 
og  gruble  over  ideer.  De  kan 
komme  overalt.  -  når  jeg  ser 
en  dame  snuble  på  gaden  el¬ 
ler  kigger  på  en  gammel  Tar- 
zan  film  i  TV.  forklarer  David . 

-  Jeg  havde  længe  gået 
med  en  idé  om  at  skabe  et 
udspil,  der  havde  noget  med 
bilers  udrustning  at  gøre.  da 
filmfolkene  baaVGhostbu- 


sters"  kontakt éÉ^,ps.  Vi  kun¬ 
ne  slet  ikke  JjgrvefsJret  at  lave 
defie  spil.  hvts  det  ikke  havde 
■tffifsig  at  jeg  laktisk  havde  de 
Overordnede  detaljer  klar  al- 
[  lerede  Det  gælder  ting  som 
1  køretøjet,  hvordan  det  læsses 
og  losses  og  selvf ølgelig  et  by¬ 
kort  Resten  var  kun  at  fylde 
på 

Crane  understreger  i  øvngt.  at 
han  ikke  har  mulighed  tor  at 
lave  hele  spillet  selv  I  dag 
fungerer  han  mere  som  in¬ 
struktør  og  styrer  grafikspecia¬ 
lister,  lydlanatikere  og  ma¬ 
skinkodefolk. 

Et  spil  som  GHOSTBUSTERS  fås 
til  flere  forskellige  computere 
Hvilken  maskine  bruger  Da¬ 
vid  mon  selv? 

-  Jeg  arbejder  udelukkende 
med  Commodore  64,  men  vi 
har  da  også  større  maskiner. 
Når  Assemblerkoden  skal 
oversættes  til  maskinsprog, 
bruger  vi  en  større  PC.  Så  går 


det  hele  meget  hurtigere.  Des¬ 
uden  benytter  vi  et  par  udvik¬ 
lingsprogrammer  til  grafik  og 
musik.  Men  i  princippet  om¬ 
skrives  alle  spil  fra  C-64  og  til 
andre  systemer,  f.eks.  MSX  og 
Spectrum,  fortæller  David 
Crane. 

Til  sidst  ville  vi  godt  have  et 
par  gode  råd  til  læsere,  som 
gerne  vil  forsøge  sig  udi  spil¬ 
udvikling. 

-  Jeg  må  nok  straks  fortælle, 
at  jeg  nemt  kan  slås  i  point  af 
dygtige  unge  knægte.  Dem 
holder  vi  løbende  kontakt 
med  for  at  få  inspirationer.  In¬ 
gen  al  dem  har  dog  forestillin¬ 
ger  om,  hvor  svært  det  er  at 
lave  et  rigtigt  godt  spil,  forkla¬ 
rer  Crane. 

-  Siden  jeg  for  mange  år  si¬ 
den  besluttede  at  blive  spilud¬ 
vikler  har  jeg  videreuddan- 
net  mig  i  elektronik,  nyere 
programmeringssprog  og 
matematik .  Det  store  problem 
ligger  nemlig  i  at  få  udtrykt 
det  virkelige  liv  i  matematiske 
formler. 

-  Jeg  bruger  altid  et  eksem¬ 
pel  med  en  springende  bord¬ 
tennisbold  .  Den  skal  ikke  ba¬ 
re  ramme  en  flade  og  hoppe 
op.  men  også  svæve,  som 
om  den  var  udsat  for  Jordens 
tyngdekraft .  For  at  kunne  gø¬ 
re  det.  må  man  vide  en  mas¬ 
se  om  simulation,  slutter  Da¬ 
vid  Crane. 

Han  har  i  øvrigt  ingen  konkret 
plan  om  et  nyt  spil  som  afløser 
for  GHOSTBUSTERS.  Men  han 
antyder,  at  han  er  blevet 
meget  inspireret  af  moderne 
europæisk  musik  og  film.  Så, 
hvem  ved .  . .  □ 

Leif  Bomberg 
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Vig  og  Baud 


■  Helten  jager  rundt  i  Paris' 
ensrettede  og  krogede  gader 
1  en  stjålet  taxa.  Hele  tiden 
med  skyggerne  tra  en  dalen¬ 
de  taldskærm  ioran  sig. 
Gyngende  i  faldskærmens 
stropper  hænger  nemlig  skur¬ 
ken  -  en  fantastisk  flot.  men  li¬ 
ges*  farlig  kvinde.  Hun  flygte¬ 
de  fra  dig  ved  at  hoppe  ud  fra 
Eiffeltåmet.  Hvem  kunne  også 
vide,  at  hendes  trøje  havde 
indbygget  faldskærm? 

Den  vilde  jagt  fortsætter  gen¬ 
nem  gaderne  og  stræderne. 
Fodgængere  og  cyklister  ka¬ 
ster  sig  til  siden  i  rædsel,  og  du 
indhenter  den  ene  bule  efter 
den  anden  ved  at  ramme 
vejskilte,  parkerede  biler,  mu¬ 
re  og  alskens  andet  ragelse, 
der  står  i  vejen. 

Til  sidst  får  du  taget  klippet  af 
vognen,  og  bagpartiet  skæ¬ 
res  af  i  et  voldsomt  sammen¬ 
stød  .  Men  bilen  kører  bare  vi¬ 
dere.  Helten  skal  nok  få  fat  i 
den  flyvende  kvinde,  der 
bærer  på  en  livsvigtig  kode- 
meddelelse. 

Sådan  kunne  man  beskrive 
hændelsesforløbet  i  den  nye¬ 
ste  James  Bond  film  -  "A 
View  to  a  Kill"  -  som  netop 
har  haft  Danmarkspremiere. 
Og  hvilken  film  -  Roger  Moore 


er  tilbage  i  topform  med  mas¬ 
ser  af  action  og  skønne  kvin¬ 
der  omkring  sig. 


James  Bond 
og  computere 

Bond  filmene  har  næsten  al¬ 
tid  indeholdt  computergrej. 
For  nogle  år  siden  så  vi  de  før¬ 
ste  armbåndsure  med  ind¬ 
bygget  sender  og  TV  og  sene¬ 
re  datamater,  der  styrer  robot¬ 
ter,  undervandsbyer  osv. 

I  "A  View  to  a  Kill”  arbejder 
skurken  med  avancerede 
Philips  kæmpecomputere, 
men  i  al  beskedenhed  kan 
du  også  være  med  derhjem¬ 
me  på  din  egen  maskine .  I  til¬ 
pas  god  tid  før  filmpremieren 
udsendte  engelske  Domark 
nemlig  "A  View  to  a  Kill"  på 
computerbånd  og  diskette  til 
en  stribe  populære  datama¬ 
ter. 

Den  danske  importør,  Semi- 
cap  Data,  har  stillet  10  "A 
View  to  a  Kill"  spil  til  rådighed 
for  en  konkurrence  heri  "Soft 
Special" .  Eneste  krav  er.  at  du 
besvarer  spørgsmålene  sene¬ 
re  i  denne  artikel.  -  og  selvføl¬ 
gelig  sender  dem  ind  til  os  pr . 
brev. 


Gå  Roger  Moore 
1  Bond  bedene 

"A  View  to  a  Kill"  spillet  be¬ 
står  af  tre  dele.  hvor  du  kom¬ 
mer  alvorligt  på  arbejde .  Spil¬ 
let.  der  er  action-  og  arkade¬ 
præget.  hører  nemlig  til  de 
sværere  i  genren. 

Første  Vi  af  spillet  foregår  i  det 
indre  Paris,  hvor  du  -  som 
nævnt  tidligere  -  skal  jage 
den  kvindelige  agent.  På 
skærmen  ser  du  hele  tiden 
gaderne  ovenfra,  og  ind 
imellem  også  faldskærmens 
skygge.  Den  skal  du  følge  så 
godt  du  kan.  men  hold  tun¬ 
gen  lige  i  munden .  .  . 

Via  forruden  på  din  stjålne  ta¬ 
xa  ser  du  vejen  foran  dig.  Du 
kan  også  måle  hastighed  og 
afstanden  op  til  den  flyvende 
kvinde .  Hold  også  øje  med  ti¬ 
den  og  en  måler,  der  viser, 
hvor  slemt  din  bil  er  blevet  til¬ 
redt  ved  diverse  sammen¬ 
stød. 

Afdeling  2  i  "A  View  to  a  Kill" 
foregår  på  San  Franciscos 
rådhus.  Skurken  Max  Zorin 
har  forskanset  sig  her,  men 
sætter  ild  til  hele  skuret,  da 
han  opdager,  at  Bond  er  i 
hælene  på  ham. 

Din  opgave  bliver  nu  at  for¬ 
søge  at  undslippe  flammerne 


og  samtidig  redde  Zorins  assi¬ 
stent,  Stacey.  Undervejs  rundt 
i  det  store  hus  skal  du  finde  be¬ 
stemte  nøgler,  ildslukkere, 
vandspande  osv.  for  at  holde 
flammerne  på  afstand. 

3.  og  sidste  del  af "  A  View  to  a 
Kill"  sender  dig  fluks  til  elek¬ 
tronikkens  verdenscentrum, 
Silicon  Valley  i  Californien. 
Her  har  skurken  fundet  nogle 
underjordiske  miner,  som  han 
vil  sprænge  i  luften,  så  alle 
computerfabrikker  synker  i 
grus.  Din  opgave.  -  tja  gæt 
selv. 

Vi  skal  lige  nævne,  at  du  hø¬ 
rer  syntetisk  tale  under  hele 
spillet,  ligesom  du  kan  vælge 
mellem  at  høre  hitmelodien 
' '  A  View  to  a  Kill "  eller  det  op¬ 
rindelige  Bond  tema . 

Sådan  kan  du 
være  med .  .  . 

' ' A  View  to  a  Kill "  fås  til  Com- 
modore  64  (bånd  eller  disk), 
Enterprise,  Spectrum.  Atari  og 
Amstrad,  -  så  de  fleste  læsere 
kan  være  med.  Besvar 
spørgsmålene  og  indsend  ku¬ 
ponen  senest  fredag  den  6. 
september.  Så  er  du  også 
med  i  konkurrencen  om  10 
spændende  Bondspil  fra  Do¬ 
mark  og  Semicap  Data.D 

LeifBomberg 
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Åbningsbillede  fra  compu¬ 
terspillet.  Kan  du  genkende 
rlffelløbet ? 


Situation  fra  ferste  par  af  ’  ’A 
Vlew  to  a Ktll” .  Du  er  chauf¬ 
før  gennem  det  Indre  Paris. 


Konkurrence 

, - 


Spørgsmål  1 : 

Hvor  mange  James  Bond 
film  er  der  lavet? 

8 _ 

10 _ 

14 _ 

24 _ 

Spørgsmål  2: 

Kan  du  nævne  mindst  1 
anden  film.  der  har  dannet 
lorbillede  tor  et  computer¬ 
spil: 


Spørgsmål  3: 

Hvad  hedder  den  pop¬ 
gruppe,  som  har  lavet  titel¬ 
melodien  "A  View  to  a 
Kill"? 


Spørgsmål  4: 

Hvis  du  vinder.  Til  hvilken 
computer  vil  du  have  vin¬ 
derspillet? 


Spørgsmål  5: 

Hvor  otte  køber  du  "SOFT 
Special"? 


Spørgsmål  6: 

Hvor  mange  listninger  tra 
"SOFT  Special"  indtaster 
du? 


Spørgsmål  7: 

Hvor  gammel  er  du? 


Spørgsmål  8: 

Hvilke  torbedringer  kunne 
du  tænke  dig  i '  'SOFT  Speci¬ 
al"? 


Navn _ 

Adresse 
Postnr.  _ 
By _ 


Indsendes  til 
SOFT  Special 
St.  Kongensgade  72 
1264  København  K 
Mærket:  James  Bond. 
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ET  EVENTYR  AF 
ET  ADVENTURE 


■  Hvis  du  står  og  vil  anskaiie 
dig  et  spilprogram  til  en  IBM 
PC  eller  til  din  kompatible  PC, 
må  Kings  Quest  absolut  væ¬ 
re  med  på  listen  over  dine 
overvejelser. 

Adventurespillet  tra  Sierra  er 
noget  nær  det  lækreste  even¬ 
tyr  vi  har  set,  ikke  bare  på 


PC 'er  men  også  på  alle  de 
andre  microer. 

1  Kings  Quest  er  du  blevet 
den  ædle  ridder  Sir  Graham. 
der  skal  tinde  og  hjembringe 
kongeriget  Daventrys  3  fra- 
stjålne  klenodier.  Det  drejer 
sig  om  et  spejl,  der  kan  forud¬ 
se  vejret,  et  skjold,  der  gør 
bæreren  uovervindelig  og  et 


skrin,  der  altid  er  fyldt  med 
guld. 

Så  meget  om  handlingen, 
der  er  bedre  end  i  de  fleste 
adventures.  Men  lad  os  kom¬ 
me  til  det  mere  interessante  - 
spillets  opbygning. 

Kings  Ouest  ser  umiddelbart 
ud  som  om  Moviesoft  teknik¬ 
ken  fra  f.eks.  Valhalla  er  ble¬ 
vet  anvendt.  Kommer  man 
nærmere  ind  på  livet  af  pro¬ 
grammet.  opdager  man.  at 
det  er  meget  mere  avance¬ 
ret  .  Hvert  af  skærmbillederne 
(der  er  mere  end  100)  er  utro¬ 
ligt  lækkert  opbygget  grafisk . 
I  modsætning  til  alle  andre 
adventures  kan  hver  eneste 
lille  blomst,  sten  eller,  hvad 
der  nu  er  på  skærmen  under¬ 
søges.  vendes  og  drejes. 

Det  er  både  lækkert,  fordi 
man  altid  får  en  reaktion, 
men  også  svært,  for  man 
kommer  let  til  at  overse  spor. 
Derfor,  "LOOK"  på  og  i  alle 
træstubbe,  sten,  huse  og  ob¬ 
jekter. 


. 
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>  look  castle 

This  is  the  castle  of  Kina  Edward  the 
Benevolent. 

>  look  at  bridge 


I  Kings  Quest  er  der  ikke  no¬ 
get  med  at  skrive  "Northeast" 
eller  "up"  hele  tiden,  for  her 
styrer  du  Sir  Graham  enten 
med  joystick  eller  cursortaster. 
Dette  giver  endnu  en  oplevel¬ 
se  af  grafikken,  for  du  er  nødt 
til  at  gå  udenom  træerne  og 
de  andre  ting.  Sir  Graham 
kan  også  svømme,  hoppe  og 
dukke  sig.  Alt  illustreres  flot 
med  sprites  på  skærmen. 
Skærmbillederne  er  ikke 
"still"-billeder.  for  hvis  en  per¬ 
son  taler  til  dig,  slår  dig,  eller 
hvad  m/k  nu  foretager  sig,  - 
så  ser  man  det  på  skærmen. 
Åbner  du  et  skab  ser  du  døre¬ 
ne  svinge  op  og  ud  kommer 
det  kunne  du  lide  at  vide. 
hva? 

Spillet  er  fyldt  med  fremmede 
væsener,  folk,  troldmænd  og 
dværge,  der  render  mndt  og 
forskrækker  dig.  Og  med  for¬ 
skrækker  mener  vi  faktisk 
skræmmer  livet  ud  af  dig. 
Prøv  bare,  når  du  har  fundet 
nøglen,  (der  er  en)  at  gå  op  i 
bjerget  en  nat.  du  er  alene 
hjemme  .  .  forbavsende 
lydellekter! 

Selv  om  man  kan  styre  med 
joystick  eller  cursortaster.  er 
der  alligevel  rig  lejlighed  til  at 
skrive  ord  og  sætninger  på 
engelsk.  Ord  som  look,  give. 
turn.  dive,  climb,  get  og  with 
vil  være  dig  en  uvurderlig 
hjælp. 

Det  kan  absolut  anbefales  at 
tegne  et  kort  over  Daventry. 
Vi  kan  røbe.  at  det  bliver  et 
forbavsende  let  og  overskue¬ 
ligt  kort,  selv  med  de  mange 
skærmlokationer . 

Under  spillet  tildeles  point,  alt 
efter  hvor  opfindsom  man  er. 
En  kæmpe  kan  f.eks.  knal¬ 
des  ned  med  en  slynge,  men 
man  kan  også  "bare"  und¬ 
gå  ham,  indtil  han  dratter  om 
ogsover. 

Som  konklusion  må  vi  erklæ¬ 
re.  at  Kings  Quest  vel  er  et  af 
de  bedste,  for  ikke  at  sige  det 
bedste  adventure.  vi  nogen¬ 
sinde  har  set.  Sådan .  .  . 
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PISKERIS  PÅ  OPGA  VE 


Programmet  Chopper  Squad 

er  et  al  de  sædvanlige  acti- 
onlyldte  'shoot'em  up'  spil. 
som  der  går  tyve  af  på  dusi¬ 
net.  Du  er  helikopterpilot,  og 
din  opgave  er  at  samle  et  an¬ 
tal  llydele  sammen,  så  du  til 
sidst  står  med  et  helt  færdig- 
samlet  fly. 

Alt  imens  du  flyver  rundt  på 
skærmen  tor  at  samle  dele¬ 
ne,  bliver  du  angrebet  og  for¬ 
fulgt.  hvorefter  du  formodes  at 
skyde  dine  angribere  ned. 
Når  du  endelig  har  fået  sam¬ 
let  flyvemaskinen,  skal  du  til 


LILLE  FYR 
PÅ  AFVEJE 

■  Doing  Doing  Doing  Doing 
Doing. 

Er  det  en  fugl.  et  fly,  super¬ 
mand,  nej.  det  er  Qogo  2  tra 
Megastar  Games,  der  er  et 
softwarefirma  med  nær  til¬ 
knytning  til  Memotech  fabri¬ 
kanterne  i  England. 
Megastar  Games  er  nyt,  men 
godt,  for  efter  Continental 
Softwares  monopol  er  det  rart 
at  få  nye  kræfter  med  i  spillet. 
Og  kræfter  er  der  i  Glogo  2. 
Glogo  2  minder  ikke  så  lidt 
om  Qbert.  som  du  sikkert  ken¬ 
der  fra  Arcade  maskinerne 
på  bakken,  eller  hvor  du  nu 
bevæger  dig.  Hvor  Qbert  kun 
har  den  samme  bane.  igen 
og  igen,  findes  der  i  Glogo  2 
præcis  50  baner  af  varieren¬ 
de  udseende  og  sværheds¬ 
grad! 

Lyden  er  fantastisk  god,  den 
kan  sagtens  sammenlignes 
med  C-64.  Det  samme  gæl¬ 
der  grafikken,  der  er  virkelig 
god. 

Gtogo  2  er  kommet  for  at 
blive,  i  mere  end  en  forstand, 
for  er  du  først  startet  går  der 
lang  tid.  før  du  slipper  spillet 
igen.  (Memodan). 

Grafik:  - III  1 1 

Lyd:  ■— *  9  1 1 

Action:  - 10-11 

Fængslende  10 


at  samlet  et  nyt. 

Den  eneste  forskel  er.  at  dine 
angribere  nu  har  et  nyt  udse¬ 
ende  .  Hvad  der  sker  når  man 
har  samlet  det  andet  fly  ved 
jeg  ikke.  da  jeg  ikke  fandt 
programmet  værd  at  ofre 
mere  tid  på.  Grafikken  er 
klodset,  og  lyden  kedelig. 
Det  eneste,  der  fangede  min 
opmærksomhed,  vår  det  fak¬ 
tum,  at  spillets  tema  mindede 
fantastisk  meget  om  det  nu 
hedengangne  Spectrum  spil 
Jet  Pac  fra  Ultimate  (Twilight). 


Grafik: 

Lyd: 

Action: 

Fængslende: 

Pris/kvalitet: 


All  om  Dala  "s  Top-25  Billiste  over  DanmaiSis  mos 
hjemmecomputere  bygger  pO  oplysninger  Ira  50 
magasiners  computeraiaoiinger  og  bcghanOtero 
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FRANSK  PÅ 
PICCOLINE 

Skal  vi  nu  til  at  spille  adventu- 
re-games  i  fransktimerne? 

Tja,  måske.  I  hvert  fald  er  det 
netop,  hvad  Francoise  An¬ 
dersen  og  hendes  firma  Soft¬ 
ware  i  Undervisningen 
lægger  op  til.  Herfra  kommer 
en  række  interaktive  compu¬ 
terspil,  som  lærer  skoleelever¬ 
ne  fransk,  mens  de  spiller. 

La  chasse  au  tresor  (skatte¬ 
jagten)  er  det  første  adventu¬ 
re  i  serien.  Her  skal  du  finde 
en  kiste  med  guldmønter, 
som  din  gamle  onkel  har 
gemt.  Desværre  døde  han, 
inden  du  fik  besked  om.  hvor 
de  mange  dejlige  penge  lå. 
Så  du  må  ud  at  søge . 

I  alt  har  du  24  genstande,  du 
skal  arbejde  med,  og  al  kom¬ 
munikation  foregår  selvfølge¬ 
lig  på  fransk.  F.eks.  spørger 
computeren  "Qu'est-ce  que 
Vous  prenez?"  Hvad  tager 
De.  -  fransk  er  jo  et  høfligt 
sprog,  ikke  sandt .  .  . 
Indbygget  i  programmet  er 
forskellige  hjælpefunktioner, 

-  grammatiske  skemaer  og 
en  ordbog.  Såfremt  der  er  et 
fransk  ord,  du  ikke  forstår  -  og 
det  kan  jo  ske  for  selv  den 
bedste  -  indtaster  du  ordet, 
efterfulgt  af  spørgsmålstegn. 
Lynhurtigt  får  du  svar  på 
dansk  samt  angivelse  af  køn 
osv. 

Men,  hvor  er  det  indlærings-  I 
mæssige  element?  Jo.  det 
overordnede  problem  er.  at 
eleverne  ud  fra  et  ord  i  ube¬ 
stemt  form  skal  finde  frem  til 
samme  ord  i  bestemt  form. 
Forfatteren  havde  oprindelig 
regnet  med  bøjningen  som 
det  væsentlige  i  program¬ 
met.  men  efter  prøver  på  fle¬ 
re  gymnasier  fandt  man  frem 
til,  at  ordbogen  blev  brugt 
mere  end  forventet.  Spillet 
var  udviklet  til  lG'ere,  men 
viste  sig  at  være  sproglig  for 
svært.  Så  nu  er  det  3G'ere, 
som  fomøjer  sig. 

Francoise  Andersen  har  ind¬ 
samlet  værdifulde  erfaringer 
med  La  chasse  au  tresor.  Nu 
er  flere  spil  undervejs  på  for¬ 
skellige  sprog,  ligesom  pro¬ 
grammerne  fremover  kan 
leveres  på  både  Piccoline, 
Butler  og  IBM  PC. 


TTTTTT  TTTTTT 

f4-+++++++++++++ 

J — i — I — 1 — I — U  ■  '  ■ 


. 


im 


PILOT  I  2.  VERDENSKRIG 


■  Nej,  det  drejer  sig  ikke  om 
en  modificeret  udgave  at  Nu- 
sers  velkendte  tegneserie¬ 
eventyr,  men  om  Microsotts 
nye  flysimulator  Spltflre  40. 
Spillet  virker  meget  realistisk, 
og  selve  skærmbilledet  med 
instrumenter  o. lign.  skulle 
være  direkte  adopteret  fra 
originale  tegninger  hos  Spitli- 
re  producenten  Supermarine. 
Dog  er  der  mindst  to  ting.  som 
ikke  fandtes  i  de  originale  ja¬ 
gere  -  men.  som  piloterne  sik¬ 
kert  gerne  ville  have  haft.  Det 
er  "rudder  indicator".  som  vi¬ 


ser  positionen  af  haleroret,  - 
og  "pitch  indicator".  der  gi¬ 
ver  et  sidebillede  af  flyet. 
Manualen  til  Spltfire  40  er  ik¬ 
ke  særlig  fyldestgørende,  selv 
om  den  når  langt  omkring. 
Den  oplyser  f.eks.  ikke,  at 
man  ved  for  stejl  stigning  kan 
vende  op-og-ned  (loope), 
hvilket  kan  give  alskens  over¬ 
raskelser.  Pas  også  på  lan¬ 
dingsstellet  (gear),  der  skal 
hives  op  så  hurtigt  som  mu¬ 
ligt.  Ellers  crasher  du. 

Til  gengæld  rummer  Spltflre 
40  mange  udmærkede  og 
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■  Spillet  loader . gaaab 

. nå,  nu  dukker  skærm¬ 
billedet  frem . SHATT 

nu  skete  det  igen.  Problemer 
med  at  loade,  og  skærmbil¬ 
ledet  bliver  til  små  irriterende 
firkanter  uden  den  mindste 

sammenhæng  .  men. 

. hvad  sker  der? . 

firkanterne  glider  rundt,  blan¬ 
des  ligesom  i  fjernsynet  når 
der  er  OBS  .  .  .  og  frem  duk¬ 
ker  Locomotlon. 

DU  er  lokomotivføreren,  der 
skal  igennem  lObaner,  hvor 
du  selv  skal  lægge  sporet  un¬ 
der  et  nerveflænsende  tids¬ 
pres.  Sporet  skal  lægges  på 
samme  måde,  som  man  ord¬ 
ner  de  små  plastic-spil,  hvor 
f.eks.  24  brikker  ligger  fast  på 
en  plade  med  plads  til  25,  og 
hvor  det  så  gælder  om  at  få 
billedet  ordnet.  Bare  ved  at 
rykke  brikkerne  frem  og  tilba- 


Locomotlon  er  meget,  meget 
svært  og  minder  ikke  så  lidt 
om  Rubiks  terning,  hvad  dét 
angår.  Her  er  dog  to  gode 
råd: 

Prøv  at  få  toget  til  at  køre  i  en 
cirkel.  Så  kan  du  lægge  spo¬ 
ret  i  ro  og  mag.  for  uret  er 
stoppet,  når  toget  kører.  Hvis 
tidsfristen  er  løbet  ud.  tryk  hur¬ 
tigt  på  O-tasten,  da  hele  spil- 
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let  så  går  langsommere  (lidt 
fusket). 

Locomotlon  er  et  Mastertronic 
spil,  og  koster  kun  ca.  40  kro¬ 
ner,  men  det  er  meget,  me¬ 
get  mere  værd. 


OP  OG  NED  AD 
STIGER 


Grafik: 

Lyd: 

Fængslende: 

Pris: 


■  Du  befinder  dig  dybt  nede 
i  en  forladt  mine.  Forladt  . .  . 


usædvanlige  ieatures.  Med  i 
MAP  kan  du  se  et  kort  over 
hele  Sydengland,  hvor  du 
selv  er  indtegnet  med  rød  prik 
og  fjendens  Messerschmidt  el¬ 
ler  Focke-Wull  med  sort.  Vil 
du  have  din  position  endnu 
mere  præcist,  kan  du  zoome 
ind  med  "N".  Ganske  fikst. 

I  Spitiire  40  kan  du  vælge 
mellem  de  krigeriske  "com- 
bat  practice"  (øvelse)  og 
"combat"  (lufikamp).  mens 
pacifister  kan  øve  sig  i  flyv¬ 
ning  med  ' 'practice" .  Her  har 
man  kun  sig  selv  og  sin  egen 
dumdristighed  som  modstan¬ 
der 

1  forhold  til  mange  andre 
krigsbaserede  spil  kan  man 
ikke  kalde  Spitiire  40  for  sær¬ 
lig  blodig.  Selve  luftkampen 
har  vi  såmænd  også  set  i  me¬ 
re  medrivende  udgaver, 
men  for  alle  tilfældes  skyld,  - 
øv  dig  først  i  at  styre  din  Spitfi- 
re.  Den  er  både  i  virkelighe¬ 
den  og  i  spillet  noget  hurtige¬ 
re  at  tumles  med  end  en 
Boeing  747  eller  en  lille  Cess¬ 
na  som  i  "Solo  Fligth".  (Twi- 
light). 

Grafik:  _  10 

Lyd:  [I  8 

Action:  I  8 

Betjening:  9 


I.  „ij  øre  on  the  landing,  i 
ord i nary  1 and i ny . 

Vou  can  go  north,  South, 
Vou  can  see  noth  i  ng  o  1  se 


i ntenes 

|  Uhat^are  go  ur-  i  nstruct  i  ons ,  O  Mightg  One  | 


I  Vou  start  east 


u .  ar~e  in  the  bathroon,  the  suite  is 
Aduacado  -  c*r  oes 1 

u  can  see  a  toothbrush 

a  -face  -flannel 

at  are  gour-  i  nstruct  i  ons ,  O  Mightg  One  I 
RTH  SOUTH  WEST  EAST  TAKE 


STORBY  VANVID 


■  Hekse  og  trolde,  magiske 
trylleformularer  og  anden 
overtro  er  yt.  Hvorfor  dog  væ¬ 
re  nødt  til  at  tage  fantasien  til 
hjælp,  når  vi  kan  lå  alt  det 
eventyr,  vi  ønsker,  blot  ved  at 
kæmpe  os  op  al  lænestolen 
og  gå  en  tur  ned  på  gaden. 
Mean  Streets  fra  Kuma  hand¬ 
ler  om  alle  de  problemer,  du 
som  almindelig  borger  i  en 
storby  kommer  ud  for.  Fra  det 
øjeblik  du  vågner,  indtil  du 
sidder  i  sikkerhed  på  dit  kon- 


Hvert  sted  du  kommer  til,  bli¬ 
ver  kort  beskrevet  af  compu¬ 
teren.  der  samtidig  oplyser, 
om  der  her  befinder  sig  nogle 
ting,  som  du  måske  kan  have 
brug  for  nu  eller  senere.  De 
andre  ordrer  du  kan  bruge  er 
TAKE.  USE.  GIVE  og  DROP.  Det 
er  så  op  til  dig  at  finde  ud  af, 
hvornår  du  skal  bruge  hjæl¬ 
pemidlerne. 

På  din  tur  gennem  byen 
kommer  du  ud  lor  alskens  for¬ 
hindringer.  Et  sted  skal  du 


ja,  men  kun  af  alt  levende. 
Minen  er  nemlig  fuld  af  spø¬ 
gelser,  som  du  ustandselig 
må  passe  på.  Og  hermed  er 
der  lagt  op  til  handlingen  i 
Spooks  &  Ladders. 

Fra  bunden  af  minen  skal  du 
arbejde  dig  op  gennem  10 
niveauer,  og  hvert  sted  skal 
du  indsamle  nogle  genstan¬ 
de,  som  er  placeret  forskellige 
steder  i  gangene.  Det  drejer 
sig  om  nøgler,  skattekister,  ju¬ 
veler  og  penge .  Du  får  points 
for  hver  ting,  du  samler  op. 
Du  kan  bevæge  dig  rundt  i 
minen  ved  at  kravle  op  og 
ned  ad  stiger  og  trapper. 
Ydermere  er  der  placeret  for¬ 
skellige  mekaniske  indretnin¬ 
ger  rundt  omkring  i  minen. 
Det  drejer  sig  om  "elevato¬ 
rer'  '  og  transportbånd.  En  ele¬ 
vator  er  en  spiralformet  tin¬ 
gest,  der  drejer  rundt  og  kan 
føre  dig  op  eller  ned. 

Når  du  går  på  et  transport¬ 
bånd,  i  samme  retning  som 
båndet  kører,  bevæger  du 
dig  meget  hurtigt,  men  går 
du  imod  båndets  retning 
kommer  du  kun  meget  lang¬ 


somt  frem.  De  fleste  minegan¬ 
ge  er  solide  nok.  men  der  fin¬ 
des  en  del  sten.  som  smuldrer 
og  forsvinder,  når  du  går  på 
dem. 

Dine  fjender  er  minens  spø¬ 
gelser,  som  gør  alt  hvad  de 
kan  for  at  genere  dig.  Efter¬ 
hånden  som  du  arbejder  dig 
op  gennem  minen,  kommer 
der  flere  og  flere,  og  enkelte 
bevæger  sig  meget  hurtigt. 
Det  siger  sig  selv,  at  du  ikke 
må  komme  i  kontakt  med 
spøgelserne,  men  du  er  des¬ 
værre  ikke  udstyret  med  no¬ 
get  våben,  som  kan  dræbe 
spøgelserne.  Du  har  kun  en 
hakke,  og  det  eneste  den 
kan  bruges  til,  er  at  lave  et 
hul  i  minegangens  gulv.  Hvis 
et  spøgelse  kommer  for  nær, 
er  der  ikke  andet  at  gøre  end 
at  lave  et  hul  og  håbe,  at 
spøgelset  falder  i.  Hvis  det 
sker,  skal  du  fylde  hullet  op 
hurtigst  muligt,  og  på  den 
måde  begrave  spøgelset.  Så 
er  der  ét  spøgelse  mindre,  og 
du  indkasserer  nogle  points. 
Det  kan  være  fristende  at  stå 
på  et  sikkert  sted  og  vente  på 


at  spøgelserne  går  i  fælden, 
men  pas  på:  Det  tager  tid,  og 
der  er  kun  en  vis  mængde 
luft  i  minen.  Spøgelserne  har 
for  øvrigt  den  fordel,  at  de  ik¬ 
ke  går.  men  svæver.  De  kan 
derfor  bevæge  sig  hurtigt 
mod  et  transportbånds  ret¬ 
ning,  og  de  svage  sten  for¬ 
svinder  ikke  under  spøgelser¬ 


passere  en  smal  gyde,  hvor 
der  befinder  sig  en  bande 
ungdomskriminelle  (kan 
"gluesniffers"  oversættes  til 
dansk?).  Hvordan  slipper  du 
igennem  uden  at  blive  over¬ 
faldet?  Flere  steder  er  vejen 
blokeret  af  politiske  agitato¬ 
rer,  og  her  må  du  bluffe  dig 
vej  igennem  eller  bestikke 
personerne.  Der  er  virkelig 
gjort  forsøg  på  at  beskrive 
nogle  barske  hændelser, 
som  i  et  moderne  storbysam¬ 
fund  ikke  er  helt  urealistiske . 
Et  af  de  værste  eksempler  fin¬ 
der  du.  når  du  på  et  tidspunkt 
møder  en  medarbejder  på 
socialkontoret.  En  vred  klient 
har  sat  ild  til  den  stakkels 
mand,  og  det  bliver  din  op¬ 
gave  at  slukke  ilden.  Det  ly¬ 
der  barsk,  men  man  hører  jo 
fra  tid  til  anden  om  overfald 
på  socialarbejdere. 

Mean  Streets  er  et  rent  ad- 
venture-spil.  Der  er  ingen  gra¬ 
fik  overhovedet.  Alt  foregår  i 
form  af  en  tekstdialog  med 
computeren.  Ordforrådet  er 
mildest  talt  spinkelt,  spillet  har 
derfor  ikke  mulighed  for  at 
blive  lige  så  nuanceret  som 
andre  mondæne  adventure¬ 
spil. 

Alligevel  er  det  virkelig 
fængslende.  Du  kommer  i 
hvert  fald  ikke  hele  vejen 
igennem  i  løbet  al  "no  time 
En  fordel  er  det  derfor,  at 
programmet  giver  mulighed 
lor  at  lagre  alle  oplysninger 
om  sted,  besiddelser  og  lig¬ 
nende  på  bånd.  Du  kan  så 
fortsætte  hvor  du  slap  på  et 
senere  tidspunkt . 


Det  kræver  behændighed  at 
klare  sig  igennem  Kuma-spil- 
let  Spooks  &  Ladders.  Man 

kan  vælge  at  starte  på  et 
hvilket  som  helst  niveau.  Det 
er  rart.  at  man  ikke  absolut 
skal  igennem  de  første  nem¬ 
me  niveauer  ved  hvert  nyt 
spil.  En  ulempe  er,  at  man  ik¬ 
ke  kan  bruge  MSX'ens  pileta¬ 
ster  til  at  bevæge  sig  rundt  i 
minen.  Man  skal  i  stedet  bru¬ 
ge  Z IX  og  M/K-tasteme.  Dog 
kan  joystick  også  benyttes. □ 


Betjening: 

Fængslende: 

Pris: 
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Da  programmet  er  engelsk, 
handler  det  selvfølgelig  om 
engelske  forhold.  Og  her  kan 
vi  godt  få  problemer.  Det  vil 
f  eks.  være  trivielt  for  en  eng¬ 
lænder  at  vide,  hvilken  parti¬ 
farve  avisen  "The  Guardian" 
har,  men  det  hører  ikke  til 
danskernes  almenviden. 
Desuden  bliver  der  på  et  tids¬ 
punkt  spurgt  om  navnet  på 
den  sidste  saksiske  konge(! !). 
Det  ved  enhver  engelsk 
knægt,  som  har  fulgt  med  i 
historietimerne,  men  vi  må 
indrømme,  at  vi  i  dét  spørgs¬ 
mål  blev  nødt  til  at  snyde  ved 
at  kigge  i  programteksten 
(som  er  ren  BASIC). □ 


Samler  du  på  programmer 


Så  kan  du  ikke  undvære  SOFT.  Danmarks  eneste,  rigtige  softwaremagasin. 
Hver  anden  måned  finder  du  store  og  små  programlistninger  til  alle  markedets 
kendte  computere  -  fra  ZX-81  over  Commodore  64  til  IBM  PC. 

SOFT  spilredaktion  er  også  på  færde  i 

hvert  nummer.  Læs  om  de  nyeste  og  bedste  _  _ 

computerspil  til  netop  din  datamat.  -  — 


[^t\j 

Du  styrer  din  pencil  med  ta¬ 
sterne: 


■  Programmet  tegner  i  højop-  $ 
løselig  gralik.  Det  kan  tegne  ^ 
hvad  som  helst,  da  der  ikke  ! 
benyttes  larver. 

=  Slet  skærm 

-  =  Hyt  uden  at  tegne  ■ 

+  =  Tegn  igen 


Placering  al  pennen: 

Y -retning  max.  200 
X-retning  max.  320 
Programmet  tdler  ikke,  at 
man  kører  ud  i  kanterne .  □ 
Læs  Nielsen 


Testamentet 


Du  har  netop  overværet  din 
onkels  begravelse .  Efteråret  er 
på  vej.  og  vinden  blæser 
kraftigt  igennem  din  tynde 
sommerjakke.  Du  kæmper 
dig  vej  op  til  afdødes  advokat 
for  at  få  oplæst  testamentet. 
Du  er  eneste  arving.  Havde 
han  mon  styrtende  med  pen¬ 
ge? 

Advokaten  åbner  den  forseg¬ 
lede  konvolut,  og  siger:  Alle 
mine  penge  skal  gå  til  min 
nevø,  sammt  alle  mine  ejen¬ 


domme  .  Neej ! !  udbryder  du : 
er  jeg  nu  blevet  rig.  Advoka¬ 
ten  sukker  dybt.  Nej  ikke,  før 
du  finder  pengene  og  ejen¬ 
dommene.  Deres  placering 
fremgår  nemlig  mystisk  nok 
ikke  af  testamentet. 

Onklen  har  opsat  en  masse 
fælder,  men  problemet  er  at 
du  er  en  frygtelig  bangebuks. 
Følgelig  ansætter  du  en 
mand  til  at  klare  opgaven. 
Sådan  lyder  indledningen  til 
dette  adventure  spil  til  Am- 


strad. 

Spillet  skal  indtastes  meget 
omhyggeligt,  da  alle  mellem¬ 
rum  skal  med,  programmet  er 
helt  i  BASIC,  og  danske  karak¬ 
terer  ligger  på  klamme  ven¬ 
stre.  klamme  højre,  backlash 
(skråstreg  til  venstre)  for  hen¬ 
holdsvis  æ.  ø,  å.  De  små  bog¬ 
staver  fås  med  shift.  Program¬ 
met  modtager  naturligvis 
danske  ordrer  som  GÅ  NORD. 
TAG  SPAND  etc. 

Sørg  for.  at  det  ikke  når  at 


blive  nat,  da  du  ikke  kan  se  i 
mørket.  Ordren  CHECK  fortæl¬ 
ler  dig.  hvilke  ting  du  bærer 
på.  Er  du  helt  lost.  skriver  du 
SB.  Så  får  du  at  vide,  hvor  du 
befinder  dig. 

En  af  de  smarte  ordrer,  som  ik¬ 
ke  normalt  eksisterer  i  adven¬ 
tures  er,  at  du  kan  spørge 
HVAD  ER  KLOKKEN. 

Torben  Tang 


14 
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Club-manager 


■  Programmet  er  beregnet  til  i  enhver  indtastning  at  etter-  sætning  at  tabs.  DKRS  er 
lagring  al  medlemmers  navn  og  tornavn  indtastes  dansk  karaktersæt.  NDKRS  er 
adresser  og  restancer.  Ialt  er  blot  med  små  bogstaver.  Ga-  svensk  karaktersæt,  P10$  og 
der  plads  til  300  medlemmer,  der.  byer  etc.  skal  indtastes  P12S  er  10 og  12  karakterer  pr 
Der  er  alsat  1 5  karakterer  til  el-  med  stort  begyndelsesbog-  inch .  ( 1 Q  og  1 2  pitch).  MGS  er 
ternavn,  12  til  tornavn,  4  til  stav.  Lande  indtastes  som  marginsætning  og  LSPS  er  li¬ 
medlemsnummer.  25  til  gade  max.  2  bogstaver  svarende  til  nespacing. 
etc  .  20  til  post  nr  og  by  samt  2  de  al  postvæsenet  anerkend-  Har  du  ikke  tilsluttet  en  printer . 
til  landskode.  Med  mindre  te  bilmærker  (DK = Danmark),  bør  du  aldrig  bede  om  ud- 
programmet  køres  på  Enter-  Når  en  adresse  er  tundet  efter  skrift,  da  computeren  så  i  al 
prise  1 28,  kan  ovenstående  ønskede  betingelse  er  der  fle-  evighed  vil  vente  på  klarsig- 
tabeller  ikke  udvides  re  muligheder:  Joysticket  kan  nal  fra  printeren  Computeren 

Hovedmenuen  giver  mulig-  bruges  til  at  "bladre  ' frem  el-  kan  derefter  ikke  stoppes 
hed  i  or  søgning  på  efternavn ,  ler  tilbage  med .  medlemmer  uden  at  data  torsvinder !  Ellers 
fornavn,  postnummer  (4  første  kan  slettes  eller  adresser  kan  kan  du  slette  alle  linjer  der 
pladser),  land,  restance/ikke  rettes,  dog  kun  gade.  by  og  indeholder  "lprint". 
restance  og  på  medlems-  land.  skal  der  rettes  et  navn  BEMÆRK: 
nummer.  Desuden  kan  der  må  det  indsættes  som  nyt  Der  bør  ALDRIG,  gentager  AL- 
vælges  indsætning  al  nye  medlem  og  det  gamle  navn  DRIG.  tastes  STOP  under  save 
medlemmer  (programmet  slettes.  Der  kan  desuden  tastes  og  load  af  data!!!!  Ligeledes 
indsætter  automatisk  på  rette  for  markering  al  restance  eller  må  båndoptageren  aldrig 
plads)  samt  load  og  save  af  ingen  restance,  eller  for  at  stoppes  midt  i  disse  procedu- 
data.  Desuden  kan  man  vende  tilbage  til  menu.  Tastes  rer. 

"bladre"  medlemmerne  der  N  for  "næste"  søges  der  Der  er  dog  lølgende  mulig- 
igennem  fra  begyndelsen  el-  videre  efter  det  næste  med-  hed  for  at  redde  dine  data, 
ler  man  kan  få  en  optælling  lem  der  opfylder  den  oprin-  hvis  du  har  tastet  stop:  Tast  F2 . 
Som  sidste  mulighed  i  hoved-  delige  betingelse  Tastes  der  P  Skriver  maskinen  da  '  chan- 
menuen  kan  der  vælges  ud-  udskrives  adressen  til  labels .  nel  already  open  ",  tast  F3  og 
skrift  på  labels  (format  36x70  Vedr.  udskrifter  på  printer:  derefter  F2.  Dine  data  vil  nu 

mm)  sorteret  efter  land  (pro-  De  anvendte  kontrolkoder  blive  savet,  og  du  taster  deref- 
grammet  leder  efter  DK.  S.  N  passer  til  EP  80+  printeren.  Har  tør  p }  som  starter  program- 
og  SF)  eller  en  medlemsliste  du  en  anden  printer  er  det  sik-  rnet. 

Etablering  af  kartoteket  sker  kert  nødvendigt  at  ændre  dis-  Har  du  tastet  stop  midt  i  proce- 
blot  ved  at  indtaste  adresser-  se  kontrolkoder.  Dette  gør  du  duren  der  henter  data  ind.  vil 
ne  som  nye  medlemmer.  For  ved  at  editere  linjerne  190.  programmet  starte  op  igen 
at  undgå  for  lang  ventetid  bør  200  og  2 10.  Her  betyder  vari-  og  dine  data  forsvinder  □ 
adresserne  indtastes  i  alfabe-  abierne  følgende:  TABS  er  P.  Stadel  Nielsen 

tiskorden. 
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PRINT  AT  21,1: "tast  U  for  ud 
IF  Q$="K"  THEN  PRINT  "ret t el 
IF  T$="N"  THEN  PRINT  "nyt  me 
LET  S$=TAST$ 

IF  S$="U"  AND  Q$="K"  THEN 
LPRINT  P12$;MGØ$: "GI .adr . 
";£*(!);"  "iFS(I):"  ":G$(1 


LPRINT  "Ny 


':G1$; 


END  IF 

IF  Q$="K"  THEN 

LET  G$(I)=G1$:LET  YS(I)=Y1 
*:LET  L$(I)=L1$:LET  B$(I)=B1$ 

2200  CLEAR  SCREEN 

2210  SET  £102: PALETTE  88,255,88 

,91 :SET  BORDER  88:SET  £20: PALETTE  88,2 
17,26,255 
2220  END  IF 

2230  IF  S$="U"  AND  T*="N"  THEN  LP 

RINT  P12$iMGØ$S"ny: 


Y1S 


2410 

2420 

2430 

LL 

2440 

2450 

2460 

2470 


IF  Q$='T 
NEXT  I 
END  DEF 
DEF  POSTNR 


THEN  EXIT  DEF 


LL 

2640 

2650 

2660 

2670 

2680 


THEN  EXIT  DEF 


2710 

2720 

2730 

SING  170: 
2740 
2750 

SING  170: 
2760 
2770 
2780 

2790 

2800 

2810 

2820 

2830 

88,88 

2840 

intnin< 


IF  Q*=Mr 
NEXT  I 
END  DEF 
DEF  BETALT 

STRING  *2  US.D* 

LET  U$="" 

PRINT  AT  20,1: "tast 
!t=restanterfM 
LET  U$=TAST$ 

IF  U$="8"  THEN 

LET  0$="+":PRINT  A 


2240  IF  T$="N"  THEN  CALL  INSERT 

2250  CLEAR  SCREEN 

2260  END  OEF 

2270  DEF  FORNAVN 

2280  STRING  *15  OS 

2290  INPUT  AT  20,5iPR0nPT  "indtas 

t  fornavn:  ":DS 

2300  LET  0$=UCASE$(D$( 1 : 1 > >&D$(2: 

2310  PRINT  AT  20.5.USING  170:0$ 

2320  FOR  1=1  TO  A 

2330  IF  D$=F$( I )  THEN  CALL  SCRO 

2340  IF  Q$="M"  THEN  EXIT  OEF 

2350  NEXT  I 

2360  ENO  OEF 

2370  OEF  NUMMER 

2380  STRING  *4  DS 

2390  CLEAR  SCREEN 

2400  INPUT  AT  20.5SPR0MPT  "indtas 

t  medlemsnummer:  ":D$ 

PRINT  AT  20.5.USING  170:0$ 
FOR  1=1  TO  A 

IF  t1$<I>=D$  THEN  CALL  SCRO 


2860  PRINT  CHR$<246) ;  "si  et  t er :  •• 
nsa);"  "sE$(I>s",  ";F$(D  : PRINT  CHRS 
(246) 

2870  FOR  N=I  TO  A-l 
2880  LET  E$(N)=E$(N+1):LET  F$(N 

) =F$(N+1 ) 

4)=M$(N+1):LET  LS(N 
«1)=G$(N+1):LET  Y$(N 
LET  L$(N)=L$(N+1 ) :LET  8$(N 

NEXT  N 
LET  A=A-1 

CLEAR  SCREEN: SET  £20: PALETTE 
.88,177 
ENO  OEF 
OEF  SAVE 

CLEAR  SCREEN 

INPUT  AT  20.0.PR0MPT  "indtas 
' : DATOS 

SET  STATUS  ON 

PRINT  AT  22,0 . 

LET  PS=E$< 1 ) :LET  P2$=ES(A):L 
=P$( 1 : 1 >8"-"&P2$( 1 : 1 ) 

OPEN  £  1 : "TAPE : KARTOTEKSDATA" 
OUTPUT 

PRINT  £1 : A 
PRINT  £1: DATOS 
PRINT  £1  :f1ED$ 

FOR  1=1  TO  A 

ES<1) 

F$(  I ) 


2890 

>=L$(N+1 

2900 


2930 

2940 

88,217 

2950 

2960 

2970 

2980 

2990 


ACCESS 

3030 

3040 


2500  PRINT  AT  20.5.USING  170:0$ 

2510  FOR  1=1  TO  A 

2520  LET  C$=Y$(I ) 

2530  IF  C$< 1 :4 ) =D$( 1:4)  THEN  CA 

LL  SCROLL 

2540  IF  Q$="M"  THEN  EXIT  OEF 

2550  NEXT  I 

2560  ENO  OEF 

2570  OEF  LANO 

2580  STRING  *2  DS 

2590  INPUT  AT  20,5sPR011PT  "indtas 

t  land  (DK, S. N, SF):  ":D$ 

2600  LET  0$=UCASE$( DS) 

2610  PRINT  AT  20.5.USING  170:0$ 

2620  FOR  1=1  TO  A 

2630  IF  L$( I )=D$  THEN  CALL  SCRO 


3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
ACCESS 
3220 
3230 
3240 
3250 
;MED$; " 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


1 :  B$(  1 ) 


PRINT  £1:E 
PRINT  £1 :F 
PRINT  £l:n 
PRINT  £1 :G 
PRINT  £1 : Y 
PRINT  £1 :L 
PRINT  £1:8 
NEXT  I 
CLOSE  £1 
SET  STATUS  OFF 
ENO  DEF 
DEF  LOAD 

SET  STATUS  ON 
CLEAR  SCREEN 

OPEN  £  1 : "TAPE :KARTOTEKSOATA" 
INPUT 

INPUT  £1 : A 
INPUT  £1: DATOS 
INPUT  £1:ME0S 

PRINT  £10. AT  1,1: "kartotek  " 
OATOS 


FOR  1 


:  TO  A 


ENO  IF 

FOR  1=1  TO  A 

IF  B$( I )=D$  THEN  CALL  SCRO 

IF  Q$="11"  THEN  EXIT  DEF 
NEXT  I 
END  DEF 
OEF  SLETNING 

CLEAR  SCREEN: SET  £20: PALETTE 


3580  SET  CHARACTER  124,0,2,60,110 

, 102.118.60,64,0  ! I 

3590  SET  CHARACTER  125,24,0,60,6, 

62,102,62,0,0  l> 

3600  END  DEF 

3610  DATA  DK, 14.  . S. 15, SVERIGE, N, 14 
.NORGE, SF. 15. FINLAND 
3620  DEF  PRINT 
3630  STRING  *5  CS.US.SS 

3640  LET  C$=CHR$(241 ) 

3650  CLEAR  SCREEN 

3660  OISPLAY  £102:AT  1  FROM  1  TO 

21 


3670 


3720 

3730 

3740 


3760 
3770 
IT  FOR 
3780 
3790 
3800 
3810 
3820 
3830 


UDPRINTNING  * 


PRINT  "*  *  •  ' 
IS:  PRINT 
PRINT  "tast  L 
:ls":CS 

PRINT  :PRINT  ' 


LET  S$=TAST$ 

PRINT  : PRINT  "ESC  =  exit'iCS 
IF  U$="L"  THEN  CALL  PLAB:EXI 

LPRINT  P 1 2S : MG  1  $  i T AB3S : LSP 1  $ 


IF  L$( I ) ="DK"  THEN 
LPRINT  OKRS; 

ELSE  IF  LSI I ) <>"DK"  THEN 
LPRINT  NDKRS: 

ENO  IF 

LPRINT  LSI  I ) ,M$( I > ,E$( I > ;  ■ 


3850 

3860 

3870 


F$( I ) , G$( I ) 
.0  NEXT  I 
END  OEF 
OEF  PLAB 
STRING 


■5  LCS, LANDS. CS.A! 


INPUT  £1 :E$( I ) 
INPUT  £  1 :F$( I > 
INPUT  £l:MS(l) 
INPUT  £1 :GS( I > 
INPUT  £1 :YS( 1 ) 
INPUT  £ I : LS ( I ) 
INPUT  £ 1 : BS ( 1 ) 
NEXT  I 
CLOSE  £1 
SET  STATUS  OFF 
ENO  OEF 
DEF  INSERT 

STRING  *30  PS.US 
CLEAR  SCREEN 
LET  X=ø 

PRINT  AT  10,0:"ir 


3440  LET  L 

(ESIN-1  >8.FS(N-1  > ) ) :LET  P$=ES(N-1  >8.FS(N 
-1 ) :LET  US=E 1 S&F 1 S : LET  P$=PS( 1 :L) :LET 
US=U$( 1 :L> 

3450  IF  P$<US  THEN  EXIT  FOR 

3460  NEXT 

3470  LET  X=N:LET  A=A+1 

3480  FOR  N=A  TO  X+l  STEP-1 

3490  LET  M$(N)=M$(N-1):LET  B$(N 

)=BS(N-1) :LET  E$(N)=E$(N-1 ) :LET  F$(N)= 

F$(N-1):LET  GS ( N ) =G$ ( N- 1 ) : LET  Y$(N)=YS 

(N-l ) :LET  L$(N)=L$(N-1 ) 

3500  NEXT  N 

3510  LET  ES(X)=E1$:LET  F$(X)=F1S: 

LET  MS ( X ) =M1$:LET  G$(X)=G1$:LET  Y$(X)= 
Y1$:LET  L$(X)=L1$:LET  BS(X)=B1$ 

3520  ENO  DEF 

3530  OEF  CHAR 

3540  SET  CHARACTER  91.126,108,108 

,126,108.108,110,0,0  IC 
3550  SET  CHARACTER  92,2,60,110,10 

2,102,118.60,64,0  ! \ 

3560  SET  CHARACTER  93,24,0,60,102 

,126,102.102,0,0  II 

3570  SET  CHARACTER  123.0,0,62,10, 

62.104,62.0,0  !< 


3890 

3900 

3910 

3920 

3930 

(VAL (LCS) 
3940 
3950 

=1  :LET  X= 
3960 

IT  FOR 
3970 


LPRINT  P 1 0$ : MGØS ; TAB2S i 

RESTORE  3610 

LET  C$=CHR$(  13) 8. CHRS (  10) 


IF  INKEY$=CHR$(27)  THEN  EX 
IF  X=4  THEN  LET  X=1:G0T0  4 

030 

3980  LET  1=1+1 

3990  IF  1<=A  THEN  3950 

4000  IF  X=1  THEN  4080 

4010  IF  X=2  THEN  LET  NR(X)=ø:LE 

T  NR(3)=0 

4020  IF  X=3  THEN  LET  NR(X)=0 

4030  LPRINT  LSP1$;TAB1$;E$(NR( 1 

) > ,MS(NR( 1 >  > ,E$(NR(2) ) , MS (NR (2) ) ,E$(NR 
(3) ) ,M$(NR(3) ) 

4040  LPRINT  TAB2S :F$(NR( 1 ) ) , F$( 

NR (2) ) ,F$(NR(3) ) jC$;GS(NR( 1 ) ) ,G$(NR(2) 

) ,G$(NR(3) ) ;C$;Y$(NR(1 ) ) ,Y$(NR(2)) ,Y$( 
NR ( 3 )); CS : LANDS . LANDS . LANDS ; 

LPRINT  LSP2S 
IF  I>=A  THEN  4080 
GOTO  3980 
NEXT  L 

LPRINT  LSP1S: 

ENO  DEF 
DEF  TASTS 
STRING  *1  U$ 

LET  US=1NKEY$ 

DO 

LET  U$=UCASE$ ( INKEYS ) 

LOOP  UNTIL  USO"" 

LET  TAST$=U$ 

ENO  DEF 
HANDLER  UPS 

IF  EXTYPE=9208  THEN 
GOTO  4310 

ELSE  IF  EXTYPE=9229  THEN 
IF  EL<3370  AND  EL>3210  THEN 
RUN 
ELSE 
STOP 
ENO  IF 
ELSE 
RETRY 
ENO  IF 
ENO  HANDLER 
"  ~  UHEN 


4050 


4230 

4240 

4250 

4260 

4270 

4280 


4330  GOTO  380 


søft  1« 


Helgarderet 


Her  er  et  program,  som  kan 
lave  reducerede  systemer  til 
tipning.  Det  eneste,  program¬ 
met  kræver,  er,  at  du  kender 
den  procentvise  fordeling,  el¬ 
ler  f.eks.  20  avisers  gennems¬ 
nit  tor  den  uge ,  hvor  du  vil  tip¬ 
pe.  Derefter  beregner  pro¬ 
grammet  de  resterende  tegn, 
og  du  har  så  mulighed  for  at 
se  de  konstruerede  rækker  på 
skærmen.  □ 

Zillo  Jensen 


PROGRAM  TIPNING. 521 


1  REM  *****#*###****!»**#*##*#**#** 

2  REM  #**  TIPSPROGRAM  LAVET  AF  *** 

3  REM  ***  PETER  ZILLO  JENSEN  *** 

4  REM  **************************** 

8  TX*="(CLR,RVS  ON , SPACE 17) MENU 

(RVS  OFF  > “ 

9  DIN  E(13),K(13),T(13),S( 13,3), 

F*( 13) 

10  GG=2  GOSUB  400 

11  PRINT  TX*;"(CRSR  NED4)"TAB(8)“  1 . 
BLADTIPS" 

12  PRINT  TAB(8)"<CRSR  NED) 2.  PROCENT 
TIPS” 

13  PRINT  TAB(8) " <CRSR  NED)3.  UDSKRIV 
NING  AF  RAEKKER” 

15  PRINT" (CRSR  NED3.GUL, 
SPACE12)PETER  JENSEN" 

16  PRINT" (CRSR  NED2, L.GRØN, 
SPACE14)MAJ  1985" 

25  GET  A$ ' IF  A*<“1"0R  A*>"3"THEN  25 

26  ON  VAL', Al) GOTO  100,200,122 
løø  GG=3' GOSUB  400  D=ø 

101  PRINT"<CLR,RVS  ON, 

SPACE  15) BLADTIPS 
(RVS  OFF)" 

104  INPUT" (CRSR  NED3.-CRSR  HøJRE3)ANT 
AL  BLADE" , AN' PRINT" (CLR) " 

: GOSUB  ?øø  FOR  A=1  TO  13 

105  PRINT" (HOME, CRSR  NED20)KAMP  NR." 
A"  SKRIV  ANTAL  AF  1  X  2  " 

106  INPUT  E(A),K(A), T(A) 

llø  IF  E(A)+K(A)+T(A)OAN  THEN  PRINT 
“  FEJL  I  TASTNING”  GOTO  105 

112  PRINT” 

113  E(A)=INT(løø/AN*E(A)  ) 
K(A)=INT(løø/AN#K(A)) 

• T (A)=INT ( løø/AN*T (A) ) 

114  GOSUB  25ø 

115  NEXT : FOR  DD=0  TO  1000 'NEXT 
120  GOTO  lø 

122  GG=5 ' GOSUB  4øø 

123  PRINT" (CLR, RVS  ON, 

SPACE9) UDSKRIVNING  AF  RAEKKER 
(RVS  OFF) "i : C=1 : P=4 

124  PR I NT "(RVS  ON, SPACE40, RVS  OFF)" 
129  GOSUB  500 : FOR  W=1  TO  lø 


PRINT" (HOME)" 

130  FOR  R=1  TO  13Q=INT(RND<1)*99)+1 

131  IF  Q<E(A)THEN  PRINT  TAB(W*3+2>"1 
I ” 'S(A, 1)=S(A, 1)+1  GOTO  140 

132  IF  Q<E(A)+K(A)THEN  PRINT  TAB(W*3 
♦2)“XI“  S(A,2)=S(A,2>+1  GOTO  14ø 

133  PRINT  TAB(W*3+2)"2I " 
'S(A,3)=S(A,3)+1 

134  GET  S*'IF  S*<>"" THEN  134 

140  I F  A*3  OR  A=6  OR  A=9  THEN  PRINT 

TAB  ( 14*3  )  "  + — 4 - " 

141  NEXT  NEXT  PRINT” (RVS  ON , SPACE40 , 
RVS  OFF) "GOSUB  300 

142  PRINT  TAB(6)“(CRSR  0P*TRVK  -RVS 
ON) SPACE (RVS  OFF, SPACE 'FOR  NAESTE 

TEGN" 

143  PRINT  TAB(6)”TRVK  (RVS  0N)F3(RVS 
0FF,SPACE4)F0R  NAESTE  RAEKKE" 

144  PRINT  TAB(6)”TRVK  (RVS  0N)F5(RVS 
OFF ,  SPACE4)F0R  NAESTE  lø-'CRSR  Hø 

JRE -RAEKKER" 

145  PRINT  TAB(6)"TRYK  (RVS  0N)F7(RVS 
OFF , SPACE4 ) FOR  MENU" 

PRINT  TAB(7) " (RVS  ON)TVPETEGH  I 
REVERSE" 

146  GET  AJ'IF  A*<“(F3)"0R  A*>"(F7)"T 
HEN  IF  AJO”  "THEN  146 

147  SS=R  SA=C  IF  A*="  "THEN  C=C+1 
IF  C=18  THEN  C=2 : R=R+3 

IF  R>33  THEN  R=4 

148  I F  A*="(F3)”THEN  R=R+3'C=2 
IF  R>33  THEN  R=4 

149  IF  A$=”  (F5>  “THEN  122 

150  IF  A*=“(F7)”THEN  lø 

151  GOSUB  6øø  FOR  R=ø  TO  1 
POKE  1024+C*40+R+A, 

PEEK ( 1 ø24+C*4ø+R+R ) + 1 28 

152  POKE  1024+SS+SA*40+A, 

PEEK ( 1 024+SS+S A*40+ A  >-128' NEXT 
155  PR I NT "(HOME. CRSR  NED, RVS  ON, 
SPACE6)” 'GOTO  146 

200  GG=7' GOSUB  400  H=ø 
PRINT" (CLR, RVS  ON, 

SPACE 14)PRQCENTTIPS 

201  PRINT” (CRSR  NED3.CRSR  HøJRE3)SUM 
MEN  FOR  DE  3  MULIGHEDER" 

202  PR I NT "(CRSR  NED, CRSR  HøJRE3)SKAL 
TILSAMMEN  GIVE  100  PROCENT" 

203  GET  At'IF  A*=””THEN  203 


204  PRINT  "(CLR)  "'GOSUB  700 
FOR  A=1  TO  13 

205  PR I NT "(HOME, CRSR  NED20)KAMP  NR." 
A"  SKRIV  PROCENT  FOR  1  X  2  " 

206  INPUT  E(A),K(A),T(A) 

207  IF  E(A)+K(A)+T(A)<>100  THEN  PRIN 
T"  FEJL  I  TASTNING"  GOTO  205 

208  PRINT" 

209  GOSUB  250 

212  NEXT 

213  GOTO  lø 

250  PRINT" (HOME) "FOR  CC=1  TO  D 
PRINT "(CRSR  NED)",  NEXT 
PRINT  TAB(9)E(A);TAB(14)K(A>; 

TAB( 19)T (A) 

254  D=D+1  '  IF  D=1  THEN  D=2 

259  IF  A=3  OR  A=6  OR  A=9  THEN  D=D+1 

260  RETURN 

300  PRINT" (HOME) "FOR  A=1  TO  13 

305  IF  S(A, 1 )=>S(A,2)AND  S(A, 1)=>S(A, 
3) THEN  F*(A)=F*(A)+"1" 

306  IF  S(A,2)=>S(A, 1 >AND  S(A,2)=>S(A, 
3) THEN  F*(A)=F*(A)+"X” 

307  IF  S(R,3)*>S(A, 1)AND  S(A,3)=>S(A, 
2) THEN  F*(A)=F*(A)+"2" 

310  NEXT  FOR  A=1  TO  13 

PRINT  TRB(34) " (RVS  0N)"F*(A) 

311  IF  A=3  OR  A=6  OR  A=9  OR  A=13  THE 
N  PRINT 

312  NEXT  RETURN 

4øø  POKE  5328 l,ø  POKE  53280, GG 
POKE  646, GG' RETURN 
5øø  PRINT"  (HOME)  "  FOR  A=1  TO  13 

501  IF  A=4  OR  A=7  OR  A=lø  THEN  PRINT 

502  PRINT  TAB( 1-INT (A/lø) )A“ (CRSR  VE 
NSTRE) I "NEXT 

503  RETURN 

600  IF  C=5  OR  C=9  OR  C=13  THEN  C=C+1 
6øl  RETURN 

700  PRINT" (HOME) "PRINT  TAB(4) " - t 

705  FOR  A=1  TO  13 

710  IF  A=4  OR  A=7  OR  A=10  THEN  PRINT 

TAB(4)  " - + - 4 - 4 - 4  " 

720  PRINT  TAB(5-INT(A/lø))A" I  I 
I  I " ' NEXT 

730  PRINT  TAB<4>" - ■» - * - * - 

740  RETURN 


■  RON  er  en  energisk  lille 
sjover,  som  lever  i  en  kælder, 
hvor  han  har  det  skidt.  Hdn 
ønsker  at  komme  op  på  top¬ 
pen  at  huset,  i  sikkerhed  i  et  lil¬ 
le  mm  under  lottet .  I  gulvet  er 
der  huller,  og  det  er  igennem 
dem  RON  skal,  for  at  nå  top¬ 
pen.  RON  styres  med  cursor 
tasterne,  og  hvis  han  ønsker 
det.  kan  man  med  COPY  ta¬ 
sten  lave  et  hul  i  gulvet,  dog 
højst  tre  gange .  For  at  gøre  det 
sværere  vil  du  blive  forfulgt  at 
væggene  og  sommetider  vil 
der  blive  skudt  laserstråler  et¬ 
ter  dig.  Hvis  du  er  hurtig,  kan 
du  med  et  tryk  på  'SPACE' 
standse„stråleme .  □ 

Morten  Olsen.  Jens  Husbjerg 
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140  GOSUG  250 : GOTO  60 

150  IF  TEST(xX*8-8, (25-yX) *16) =1  THEN  YX=YX-1 : GOTO  70 

160  GOSUG  S50: LOCATE  xX, yX-1 : GOSUB  S60:G0SUB  830:G0SUB  250: GOTO  60 

170  IF  TEST(xX*S-3,  (25-yX)*16) =1  THEN  YX=YX+1:G0T0  70 

180  GOSUB  850 : LOCATE  xX, yX+1 : GOSUB  S60:G0SUB  830:G0SUB  250: GOTO  60 

130  IF  TEST(xX*8-S, (25-yX)  *16)  =1  THEN  xX=xX-l : GOTO  70 

200  GOSUB  350: LOCATE  xX-1, yX: GOSUB  860: GOSUB  830: GOSUB  250: GOTO  60 

210  IF  TEST(xX*8-S, (25-yX) *16) =1  THEN  xX=xX+l:GOTO  70 

220  GOSUB  850: LOCATE  xX+1 . yX: GOSUB  860: GOSUB  830: GOSUB  250: GOTO  60 

230  FOR  xlX=l  TO  79:L0CATE  xlX, i: PRINT  CHR* ( 143)  .‘LOCATE  xlX,24:PRINT  CHR*(143):N 

EXT : FOR  ylX=l  TO  25:L0CATE  l,ylX:PRINT  CHR*( 143) :LOCATE  79, y IX: PRINT  CHR* ( 143) ;C 

HR*( 143) > :NEXT : FOR  ylX=l  TO  23  STEP  2:F0R  xlX=l  TO  79:L0CATE  x IX, ylX: PRINT  CHR*( 

143) : NEXT:NEXT 

240  FOR  ylX=3  TO  21  STEP  2:F0R  d%=l  TO  hui:LOCATE  (70*RND( 1 ) ) +2, y IX: PRINT  . . 

XTsNEXT :FOR  X1X=1  TO  79:L0CATE  X1X,25:PRINT  CHR* ( 143) ; :NEXT : RETURN 
250  9*= I NT ( 3*  RND ( T I ME ) ) - 1 : x3X=x3X+9  X 
260  IF  x3X=79  THEN  x3X=78 
270  IF  x3X=l  THEN  x3X=2 

230  IF  TEST(x3X*S-8, (25-y3X>*16-16)=0  THEN  y3X=y3X+2: LOCATE  x3X, y3X-2: PRINT  "  “ 

290  LOCATE  x3X, y3X : PRINT  "  “ ; CHR* < 143) ? M  M 

300  IF  x3X=xX  AND  y3X=yX  THEN  GOTO  710 

310  9X= I NT  <  3*RND  <  T I  ME ) )  - 1 :  x4X=x4X+9X 

320  IF  x4X=79  THEN  x4X=78 

330  IF  x4X=l  THEN  x4X=2 

340  IF  TEST(x4X*8-8,  ( 25-y4X>*16-16) =0  THEN  y4X=y4X+2: LOCATE  x4X, y4X-2: PRINT  "  " 
350  LOCATE  x4X, y4X : PRINT  ”  "  5  CHR*  <143) !  M  “ 

360  IF  x4X=xX  AND  y4X=yX  THEN  GOTO  710 

370  IF  xX>  3+x5X  THEN  9X=1 

380  IF  xX <3+x5X  THEN  9X=-1 

390  x5X=x5X+9X 

400  IF  x5X=79  THEN  x5X=7S 

410  IF  x5X=l  THEN  x5X-2 

420  IF  TEST (x5X*8-8, (25-y5X)*16-16)=0  THEN  y5X=y5X+2: LOCATE  x5X, y5X-2: PRINT  “  " 
430  LOCATE  x5X, y5X: PRINT  "  “ SCHR*< 143) 5 "  “ 

440  IF  x5X-xX  AND  y5X*yX  THEN  GOTO  710 
450  9%= INT ( 3*RND(TIME) )-l s  x6X=x6X+9X 
460  IF  x6X=79  THEN  x6X=78 
470  IF  x6X= 1  THEN  x6X=2 

430  IF  TEST (x6X*8-8>  <25-y6X) *16-16) =0  THEN  y6X=y6X+2: LOCATE  x6X, y6X-2: PRINT  "  " 
490  LOCATE  x6X, y6X : PRI NT  "  " ;CHR*( 143) S “  " 

500  IF  x6X=xX  AND  y6X=yX  THEN  GOTO  710 
510  9X=INT(3*RND(TIME) ) -1 : x7X=x7X+9X 
520  IF  x7X=79  THEN  x7X=78 
530  IF  x7X=l  THEN  x7X=2 

540  IF  TEST ( x7X*8-8, (25-y7X)*16-16) =0  THEN  y7X=y7X+2: LOCATE  x7X. y7X-2: PRINT  "  " 
550  LOCATE  x7X, y7X: PRINT  "  “ ; CHR* (143) ! "  " 

560  IF  x7X=xX  AND  y7X=yX  THEN  GOTO  710 
570  9X=INT(3*RND(TIME) ) -1 : x8X=x8X+9X 
580  IF  x8X=79  THEN  xSX=78 
590  IF  x8X=l  THEN  x8X=2 

600  IF  TEST<x8X*8-8,  (25-y8X) *16-16) =0  THEN  ySX=y8X+2: LOCATE  x8X, y8X-2: PRINT  "  " 
610  LOCATE  x8X,  y8X:  PRINT  "  "  ;CHR*(  143)  ! ''  " 

620  IF  x8X=xX  AND  y8X=yX  THEN  GOTO  710 
630  9X=INT(3*RND(TIME) )-l : x9X=x9X+9X 
640  IF  x9X=79  THEN  x9X=78 
650  IF  x9X=  1  THEN  x9X=2 

660  IF  TEST ( x9X*8-S> (25-y9X) *16-16) =0  THEN  y9X=y9X+2: LOCATE  x9X, y9X-2: PRI NT  "  " 
670  LOCATE  x9X, y9X : PRI NT  "  " :CHR*( 143) : "  " 

680  IF  x9X=xX  AND  y9X=yX  THEN  GOTO  710 
690  RETURN 

700  GOSUB  870: I mX= I mX+1 : IF  HUL=1  THEN  GOTO  710  ELSE  hu  I =hu l -1 :GOTO  40 
710  GOSUB  870  s  FOR  x  =  J  TO  7 :  oo  i  nts  l  ut=9emX<  x)  +po  i  r.ts  I  ut :  NEXT:GOTO  780 
720  YCX= INT (6* C RND (TIME) )+l>*2 
730  FOR  B0LDX=77  TO  2  STEP  -2 

740  IF  YCX=YX  AND  XX=BOLDX  OR  ycX=yX  AND  xX=boldX+l  THEN  LOCATE  XX,YX:PRINT  CHR* 
( 238 ) :LOCATE  35, 13:PRINT  "GAME  OVER":FOR  DX=1  TO  1000: NEXT :GOTO  710 
750  SOUND  1,25,  2,  15,  2,  2,  1 :  IF  INKEY(47)=0  AND  FIRE>0  THEN  LOCATE  BOLDX,  YCX: PR7.NT 
"  “ :  do  i  nt=Po  i  nt-250 :  f  i  r*=f  i  re-l:  RETURN 

760  LOCATE  BOLDX, YCX: PRINT  CHR* ( 231 ): LOCATE  BOLDX, YCX : PRINT  . LOCATE  boldX+1,  y 

cX: PRINT  CHR* ( 232 ): LOCATE  bo  I dX+1, ycX: PRINT  "  “ : NEXT 
770  RETURN 

780  LOCATE  17, 13: PRINT"  Du  fik  " 5 POINTSLUT+ (7-hu I ) *500 5 "  poir.t.  Vil  du  orOve  i  9* 
n  Ej /nÅ  " 

790  IF  INKEY (45)=0  THEN  GOTO  30 
300  IF  INKEY (46)=0  T-HEN  STOP 
310  GOTO  790 

320  SOUND  1, 100, 2, 15,2, 2: RETURN 
330  IF  RND ( TIME) > O.  95  THEN  GOSUB  720 
340  RETURN 

350  LOCATE  xX.yX: PRINT  CHR*(225) : RETURN 
360  PRINT  “  " : do  i ntX=DO i ntX— 1 : RETURN 
370  g©mX(  l  mX )=do  i  r»tX:  RETURN 
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3  GO  SUB  9006 
6  REH  Laser  t 
©  by  Mads  Bruun 
10  POPER  1:  INK 


S BOEDER * 1? 


i,  17;  "LOSEÉ* 

|R  a  «1  T"  *» 

_&40  pélftT  OT 

. .  . . •  5,0;  INK 

4,  ••  Liv:  l 

350  PRINT  OT  7,0;  INK 
370  PRINT  OT  3,0,  INK 


1  ,  RT  Bi  17,  LHocH 

330  POR  a-1  TO  SI:  PRINT  POPER 

- - -  -  ••  NEXT  a 

-  -  POPER 

~3BØ~ PRINT  ( 


as' i^ø 'aé, i7&,8s, i 
137,31,0,0,0,0,0,0 
3BB , 358 ,79,87,53,7 
193  ,  193 , 138 , 135 , 13 


O,  12B,  12B,  13« 

5150  RETURN 
7000  BEEP  .005,0:  REM  fire 
7010  POR  q«26  TO  7  STEP  -1: 


9. 


LET  Monster  »INT  IRNDaSI 
IP  »onster-0  THEN  LET  ■ 
IP  »ons  t  er  al  TMEN  LET  ■  *.< 
378  LET  b»: 


380  PRINT  OT  9,0;  INK  t 
&8B  PRINT  INK  0;  POPER 
3øØV PRINT' )ÉnK  3; OT 
301  POU8E  u 
305  PRINT  RT  b,c-l;“ 

310  PRINT  INK  (ions  ter  *4)  ;  RT  b, 
Cisl  LET  c»c*l 
330  IP  c  »35  TMEN  GO  TO  8000 
400  IP  INKEY4-U*  OND  h>l  THPN  L 
ET  h»b-l:  PRINT  RT  h»l,38, " 

410  IP  INKEY*-d*  O NO  h <31  TMEN 
LET  hah+1:  PRINT  OT  h-1,38," 

430  IP  INKEY*-E*  THEN  GO  TO  700 


T  INK  6,  OT  h,<i;  "  ‘  ” 

7030  PRINT  OT  h,7;“ 

7030  IP  bah  TMEN  GO  TO  7050 
7040  GO  TO  300 

7050  LET  c  »8:  LET  s  c  »S  C«- INT  fRND 
8000  POR  X  »13  TO  1  STEP  -1:  BEEP 

0.005.x:  - ”  - - - 

60X0  LET 

søn  pRiNi  ... 

8015  LET  c »8 

8030  : —  •  - 

8030  ( 

8500  1.  . . . . ... _ 

RIMT  PLOSM  l^PT  7^15^ "REKORD" 


N  7 

•*«>"N"  ' 


Traditionen  tro  bringer  vi  også 
et  rumspil  denne  gang.  Du 
skal  styre  din  rumjager  tor  at 
kunne  skyde  så  mange  uhy¬ 
rer  som  muligt .  Du  styrer  med 
cursor  tasterne  eller  keyboar- 
det.  Programmet  har  3  svær¬ 
hedsgrader. 

Mads  Bruun  Olsen 
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Sound 

Inferno 


Amstrad  computeren  er  i  lø-  r 
bet  at  det  sidste  år  blevet  utro¬ 
lig  populær.  En  at  grundene 
er.  at  den  har  nogle  ganske  | 
lækre  lydtacilitetter .  Her  er  et  £ 
kort  program,  der  viser,  hvor-  r 
dan  man  kan  tå  nogle  sjove  /* 
lydettekter  trem  ved  brug  at  ™ 
ENV  kommandoen. 

Claus  Hemdrup  Hansen 


10  ’  (PJ  Claus  Hemdruo  Hansen,  Computer 
sende 

20  ’  EKS.  i 

30  ENV  1,  =0,  1000: SOUND  1,0,100,0,1,0,31 
40  ’  EKS.  2 

50  ENV  2,  =0,  10000  s  SOUND  1,0,150,0,2,0,31 
60  *  EKS.  3 

70  ENV  3,  =4,  1000:  SOUND  1,0,100,0,3,0,31 
SO  ’  EKS.  4 

90  ENV  4,  =8,  1000: SOUND  1,0,500,0,4,0,31 
100  ’  EKS.  5 

110  ENV  5,  =10,  1000:  SOUND  1,0,500,0,5,0,31 


120  ’  EKS.  6 

130  ENV  6,  =11, 400:  SOUND  1,0,75,0,6,0,31 
Ea  140  FOR  t  =  l  TO  100  :  NEXT 
150  ’  EKS.  7 
160  FOR  t=l  70  10 

,\\  170  ENV  7,  =11, 400:  SOUND  1,100,75,0,7,0,0 

)  )  ISO  NEXT 
!))  130  ’  EKS.  8 

//  200  ENV  8,  =12,  1800:  SOUND  1,0,500,0,3,0,31 

/  210  ’  EKS.  3 

220  ENV  9, =13, 1800: SOUND  1,0,250,0,3,0,31 
230  ’  lyd-eKS 

240  ENT  -1,20,4,1,20,-4,1  :  ENV  2,  =0,  10000:  SO 
UND  1,160,800,12,2,1 


Amsort 


Følgende  program  er  en  gan- 

ske  enkel  lille  sorteringsrutine.  2 

Listningen  er  kort  og  skulle  £ 

kunne  arbejde  på  de  Heste  5 

andre  hjemmecomputere  /  6 

uden  de  store  problemer.  '  7 

Claus  Hemdmp  Hansen  I  s 

r _ ,  \ _ I  ? 

o  o  i 


10  ’  <P)  Claus  hemdruo  Hansen,  Computer 
20  CLS 

30  PRINT"Hvor  mari9e  elementer  skal  sorteres  ?" 
40  INPUT  EE 
50  DIM  e* (. ee > 

60  FOR  t=l  TO  ee 
70  PRINT  t; 

SO  INPUT  ">  "  ?e*(t):  e*(t)=UPPER*<e$Ct) ) 

90  NEXT 

100  FOR  tt=l  TO  ee 
110  FOR  t=2  TO  ee 

120  IF  e$  (t)  <e*Ct-l)  THEN  GOSUB  190 
130  NEXT  t,tt* 

140  FOR  t=l  TO  ee 
150  PRINT  t" > "e$ (t ) 

160  IF  t/20=INT( t/20) THEN  GOSUB  220  ’ CftLL  PfiUSE 
170  NEXT 
ISO  END 

190  q*=e*<t) :w$=e*(t-l) 

200  e$  C  t) =w$ : e$ ( t- 1 )=q* 

210  RETURN 
220  ’  Pause 
230  PRINT 

240  PRINT  "TRYK  <  MELLEMRUM  > " 5CHR$(7) 

250  PRINT 

260  re*=INKEY*  :  IF  re$=”  "  THEN  RETURN 
270  GOTO  260 


■  Rumflyvning  er  et  spil.  der 
har  virkelig  god  grafik,. og  er 
meget  hurtigt.  Spillet  er  nem¬ 
lig  opbygget  i  maskinkode 
næsten  hele  vejen  igennem . 
Du  skal  flyve  dit  rumskib  rundt 
på  skærmen  tor  at  undgå 
UFO'eme.  fordi  hver  gang  du 
rammes,  bliver  UFO 'emes  ha¬ 
stighed  større.  Tredje  gang 
dør  du.  Det  gælder  om  at  få 
flest  points,  naturligvis. 

Space  Travel  benytter  joystick 
port  1  .□ 

Preben  Eriksen 


llliliSE 


;å??*åf ?é?f kil  1 *1 J i 2 1 J i? : å? ■ *  ■ - 
i? i  i?' 

;  f  5? ;  ?3?il :  i  ?!?  - 


ø  27 


28  &0 


øfi  « 


Race 

Spectacular 


■  Du  sidder  i  en  racerbil  og 
skal  sørge  ior.  al  den  holder 
sig  på  vejen  og  kommer  hel¬ 
skindet  udenom  forhindrin¬ 
gerne  .  Du  skal  desuden  passe 
på  at  køre  økonomisk,  da  der 
også  "forsvinder''  et  liv,  hvis 
du  kører  for  hurtigt,  bruger  for 
meget  benzin,  kører  for  lang¬ 
somt  eller  bruger  for  meget 
tid.  Hvis  du  kører  tilpas  økono¬ 
misk.  vil  du  nå  frem  til  en  slan¬ 
ge,  hvor  bilen  vil  kunne  få 
fyldt  benzin  og  tid  på . 

Bilen  styres  med  tasterne  8  og 
9(henholdsvis  venstre  og  høj¬ 
re),  bilens  fart  reguleres  via 
gearene  (tast  7  for  at  komme 
op  i  gear  og  tast  6  for  gear 
ned).  Når  bilen  er  lige  ud  for 
slangen  skal  der  trykkes  på  0. 
På  den  øverste  linie  af  skær¬ 
men.  vil  du  kunne  se  hvor 
mange  biler  du  har  tilbage, 
hvor  meget  benzin  og  tid  du 
har  (øverste  og  nederste  streg) 
og  hvilket  gear  du  kører  i.  1  er 
hurtigst  og  4  er  langsomt. 
RACER  1 ,  2  og  3  listningernes 
startadresser  er  23296,  24485 
og  27136  og  de  er  på  hen¬ 
holdsvis  246.  1408  og  1 128  by¬ 
tes.  Programmet  startes  fra 
adresse  24485.  □  Krølle 
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For  et  stykke  tid  siden  bragte 
vi  et  program  til  Commodore 
64,  der  lavede  data  karakte¬ 
rer  i  stedet  tor  de  normale .  Her 
er  en  Amstrad  udgave,  ka¬ 
raktererne  er  pænest  i  MODE 
1 .  og  især  med  lys-bid  skrift 
(INK  1,11  eller  INK  1.2). 

Carsten  Lynge  Jensen 


f 

£ 


.  Hr  TER  33 

.  33,  16,  16,  16,  26,  24,  0,  24 
,  34, 72, 10S. 108 
.  35, 72, 72, 254, 72, 254, 108, 108 
.  36,24,126,64,126,2,126,24 
.  37,227,166,236.24,55,101,199 
.  38,56,40,56,118,92,92,118 
.  39,  16,  24, 24 
.  40,  6,  28,  48,  32,  48,  28,  6 
.  41, 96, 56,  12, 4,  12,  56, 96 
.  42,  16,  36,  56,  254,  56,  84,  16 
.  43, 0, 16,  16,  124, 16,  16 
.  44,0,0,0,0,0,16,24,26 
.  45, 0,0,0, 60 
.  46,0,0,0,0,0,  16,24 
.  47,6,  12,3,24,  16,48,32 
.  48,126,66,66,98,98,98,126 
.  49,  24.  24,  8,8,3,  28,  28 
.  50,  126, 2, 2. 126, 64, 70,  126 
.  51,126,2,2,62,6,6,126 
.  52,66,64,66,70.126,6,6 
.  53,126,64,64,126,2,98,126 
.  54, 124,68,64, 126,70,70,126 
.  55,  126,66,2,  14,6,6,6 
.  56,126,66,66,126,98,98,126 
.  57,126,66,66,126,6,6,6 
.  58,  0,0,  16,24,0,  16,  24 
.  59,  0,  0,  16,  24,  0,  16,  24,  24 
.  60,  2,  14,  56,  96,  56,  14,  2 
.  61,0,0,60,0,60 
.  62,64,112,24,6,24,112,64 
.  63,  126,66,2,30,24,0,24 
.  64,126,72,72,126,104,104,110 
.  65,62,34,34,126,98,98,98 
.  66,  124, 68, 68,  126, 98, 98,  126 
.  67,  126, 66, 64, 64, 96, 98,  126 
.  68,124,66,66,66,98,98,124 
.  69,  126,  64,  64,  124,  96,  96,  126 
.  70,126,64,64,120,96,96,96 
.  71 ,  126, 66, 64, 64,  102, 98, 126 
.  72,  66,  66,  66,  126,  98,  93,  98 
.  73, 24, 0, 16,  16,  24,  24, 24 
.  74,  2,2,2,2,6,70,  126 
.  75,  68,  68,  76,  126,  98,  98,  98 
.  76,  64,  64,  64,  64,  96,  93,  126 
.  77,  126,  74,  74,  66,  93,  98,  98 
.  73,126,66,66,66,98,93,98 


t 


540  SYMBOL  79,126,66,66,66,66,93,126 
550  SYMBOL  80,126,66,66,126,96,96,96 
560  SYMBOL  81 , 126, 66, 66, 66,  78,  78,  126 
570  SYMBOL  32,124,68,68,126,98,98,98 
580  SYMBOL  83,126,66,64,126,2,98,126 
590  SYMBOL  84,  126,16,16,16,24,24,24 
600  SYMBOL  85,  66,  66,  66,  66,  98,  93,  126 
610  SYMBOL  36,66.66,66,66,98,102,60 
620  SYMBOL  37,66,66,66,66,106,110,60 
630  SYMBOL  38,66, 102,60,24,60,102,66 
640  SYMBOL  39,  66,  66,  66,  126,  24,  24,  24 
650  SYMBOL  90,126,2,6,12,24,43,126 
660  SYMBOL  91,126,70,78,90,114,98,126 
665  SYMBOL  92,32.43,16,24,8,12,4 
670  SYMBOL  93,60,0,126,66,126,98,98 
675  SYMBOL  96,16,24,8,12,4 
630  SYMBOL  97,0,0,124,4,124,76,124 
687  SYMBOL  94,  16, 56,  124, 16,  16, 56, 56 
690  SYMBOL  98, 96,  96,  124, 68, 68,  100, 124 
700  SYMBOL  99, O, O, 124, 64, 64, 96, 124 
710  SYMBOL  100, 12, 12, 124, 68, 6S, 100, 124 
720  SYMBOL  101,0,0,  124,68,124,96,124 
730  SYMBOL  102,60,36,32,112,96,96,96 
740  SYMBOL  103,0,0,124,68,68,124,12,124 
750  SYMBOL  104,64,64,124,68,68,100,100 
760  SYMBOL  105,0,24,0,16,16,24,24 
770  SYMBOL  106,0,12,0,4,4,4,76,124 
730  SYMBOL  107,64,72,72,124,68,100,100 
790  SYMBOL  108,16,16,16,16,24,24,24 
SOO  SYMBOL  109,0,0,126,74,74,106,106 
810  SYMBOL  110,0,0,124,68,63,100,100 
320  SYMBOL  111,0,0,124,68,63,100,124 
S30  SYMBOL  112,0,0,124,68,100,124,96,96 
340  SYMBOL  113,0,0,  124,68,76,124,12,  12 
850  SYMBOL  114,0,0,124,64,64,96,96 
860  SYMBOL  115,0,0,  124,64,124,12,  124 
S70  SYMBOL  116,32,32,112,32,32,36,60 
380  SYMBOL  117,0,0,68,63,68,100,124 
390  SYMBOL  118,0,0,68,68,68,103,56 
900  SYMBOL  119,0,0,66,66,74,106,126 
910  SYMBOL  120,0, O, 108,56, 56, 10S, 68 
920  SYMBOL  121,0,0,63,63,100,124,4,124 
930  SYMBOL  122, O, O, 124, 12, 24, 4S, 124 
940  SYMBOL  123,0,0,124,76,68,100,124 
950  SYMBOL  124,0,0,124,84,92,76,118 
960  SYMBOL  125, 56, O, 124, 4, 124, 76, 124 
1000  SYMBOL  163,124,68,64,240,96,102,25 
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U-båds  manøvre 


Denne  ubidssimulator  111  Me- 
motech  er  miske  det  bedste 
piogtam.  der  ei  blevel  trykt  til 
en  MTX 1  SOFT  Del  tylder  8.5K 
og  har  lingratik 
Du  styrer  med  (sigende  taster 
A  =  Farten  op 
S -Farten  ned 

R = Klar  til  torpedoattyrtng,  sig¬ 
tekorn  op. 

1-6 -Data  tor  destroyere  1-6. 
Cursor  venstre/hø|re-drej 


venstre/højre 

Cursor  op/ned  -  dy  k  ud/ind 
Home  =  Altyr  torpedo 
Pi  displaye'  serdutølgende 
Batt  -  Batteriernes  tilstand 
Fuel  =  Brændstot  beholdning 
Knot  -  Hastighed  i  knob. 
Depth- Dybde 
Oxygen -Lutt  beholdning 
Base  =  Atstand  tra  ubid  til  ba- 


Depth  Wamlng-  Advarsel 
ja/ne) 

Ved  angreb  ser  du: 

Dist -Distancen  tra  dig  til  de¬ 
stroyeren 

Csr = Destroyerens  kurs 
Husk  at  stoppe,  nir  Base-O. 
Basen  ligger  pi  98  meters 
dybde  Hvis  CSR =0  og  Depth 
=98  og  Base  =  200.  lir  du  et 
flot  3-D  billede  Dyk  ikke  dy¬ 


bere  end  98  meter! 

For  at  vinde  skal  alle  destroy¬ 
ere  skydes  ned.  og  du  kan  ik¬ 
ke  skyde  hvis  du  ligger  dybe¬ 
re  end  10  meter 
Nir  din  CSR  er  lig  destroye¬ 
rens  CSR  kan  du  ramme  den 
Hvis  dist  bliver  under  1 00  ram¬ 
mes  du  sikkert  at  en  dyb¬ 
vandsbombe 
God  fornøjelse.:' 

Simon  Bonnick 
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Vanabel  Dump  lil  Spectrum 
48  K  udprinter  alle  delinerede 
variabler,  simple  såvel  som 
dimensionerede  tal  og  tekst  - 
variabler,  samt  lor-next  vari¬ 
abler.  og  disses  værdier 
Når  du  har  indtastet  program¬ 
met.  vil  det  automatisk  kon¬ 
trollere.  om  du  har  tastet  dato¬ 
erne  korrekt  md  Når  du  skal 
gemme  programmet  på 
bånd  taster  du  SAVE  "Var 


Dump"  CODE  64800.  492. 

Nu  kan  du  hente  programmet 
med  CLEAR  64799:LOAD"  'Var 
Dump"  CODE.  Du  skal  blot 
være  klar  over.  at  du  vil  slette 
alle  variabler,  når  du  loader 
programmet  ind.  -  så  du  må 
tage  programmet  ind  iør  du 
skal  bruge  det. 

Du  kalder  rutinen  med  RAN- 
DOMEE  64800. □ 

Lars  Kjær  Larsen^ 
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Grafplotter  tegner  graten  tor 
en  hvilken  som  helst  funktion 
du  ønsker,  når  denne  blot  er 
indtastet  i  linie  90  etter  DEF 
FNA(X)= 

Gratplotter  udregner  max .  og 
min.  værdier  for  funktionen  i 
intervallet  Xmin  -  Xmax.  De 
to  værdier  indtaster  du  i  kørs¬ 
len  at  programmet. 
Stepstørrelsen,  du  vælger,  an¬ 
giver  den  nøjagtighed,  du  vil 
beregne  værdierne  med.  Na¬ 


turligvis  tager  det  længere  tid 
at  beregne  mere  nøjagtigt. 
Foruden  at  beregne  de  øn¬ 
skede  to  værdier,  tegnes  gra¬ 
fen  i  højopløselig  grafik,  og 
koordinatakserne  er  også 
indtegnet. 

Der  er  dog  ikke  angivet  koor¬ 
dinater  på  akserne,  men 
man  kan  jo  blot  benytte  gra¬ 
fen  som  skitse. □ 

Thomasz  Kapielewicz 


Jukebox 

■  Du  kan  bruge  enten  hele 
programmet  eller  blot  en  blok 
tra  det,  hvis  du  vil  sætte  et  mu- 


BMfifl  BGGSTAVER  =  GRAPHICS  +  BOG¬ 
STAVET 


GRAFIKTEGN  =  SOM  VIST 


>  10  REM  *********************** 

26  REM  *  * 

30  REM  *  MUSIK-EKSEMPLER  * 

40  REM  *  '  TIL  LAMBDA  3300  * 

50  REM  *  LAVET  AF  * 

60  REM  »CLAUS  0.  SØRENSEN  OG  » 

70  REM  »MICHAEL  M.  JØRGENSEN  * 

SO  REM  *  * 

90  REM  *********************** 
100  CLS 

i  10  PRINT  AT  0. Si “MUSIK-EKSEMPLER 


120  PRINT 
130  PRINT  “1 
140  PRINT  "2 
150  PRINT  "3 
160  PRINT  "4 
'70  PRINT  "5 
ISO  PRINT  "6 
190  PRINT  "7 
200  PRINT  "S 


YESTERDAY" 

WHEN  THE  SAI NTS“ 
NHAT  SHALL  WE  DO" 
POPCORN" 

MINKA" 

BONDE  MARCH" 

SE  HAN  KOMMER" 
WELCOME  SNEET  PLEA 


205  PRINT  "9.  SLUT  (SLETTER  PROGR 
AMMET)  " 

210  PRINT 
220  PRINT 
230  PRINT 

240  PRINT  "TAST  ET  AF  OVENSTAAEN 
DE  TAL" 

250F*=INKEY* 


260  IF 


OR  F*>"9"  THEN  GOTO 


250 

270  IF  F*=" 1 " 
280  IF  F*="2" 
290  IF  F*="3" 
300  IF  F*="4" 
310  IF  F®="5" 
320  Ir  F*="6" 
330  IF  F*="7" 

350  IF  F*="9" 
IKKER  (J/N)" 


THEN  GOTO  1000 
THEN  GOTO  2000 
THEN  GOTO  3000 
THEN  GOTO  4000 
THEN  GOTO  5000 
THEN  GOTO  6000 
THEN  GOTO  7000 
THEN  GOTO  8000 
THEN  PRINT  "ER 


DU  S 


353  IF  F®=" "  THEN  GOTO  250 


355  INPUT  B* 

360  IF  B*="J"  THEN  STOP 
370  IF  B*="N"  THEN  GOTO  100 
380  IF  B*=" "  THEN  GOTO  355 
390  IF  B®  O  11 J"  AND  B*  O  "N"  THEN  G 


OTO  335 
1000  CLS 

1010  PRINT  AT  5.51 "DEN  VIL  NU  SPIL 
LE  YESTERDAY" 

1020  PAUSE  100 
1030  REM  *»*».******» 

1040  REM  »YESTERDAY* 

1050  REM  **»«»***»*» 

1060  TEMPO  37 
1070  FOR  N=1  T02 
1080  GOSUB  1160 
1090  GOSUB  1160 

1100  MUS I C  "E8E8A4B4C) 4B2A2B6A2G4 
A2E10" 

lllø  MUS I C  "ESE8A4B40  4B2A2B6A2G4 
B4C>4G4F4E4" 

1120  GOSUB  1160 
1130  NEXT  N 

1140  MUS I C  "C4E4D4A (4C4E2E10" 

1150  GOTO  100 
1160  MUS I C  "D2C2C12" 

1170  MUS I C  "E2f 292A2B2C) 2B2A2A12” 
1180  MUS I C  " A2A2G2F2E2D2F2E2E8D4" 
1190  MUS I C  "C4E4D6A (4C4E2E10" 

1200  RETURN 
2000  CLS 

2010  REM  ***************** 

2020  REM  »WHEN  THE  SAINTS* 

2030  REM  »»*********»»**»» 

2035  PRINT  AT  5. 0  i “DEN  VIL  NU  SPIL 
LE  WHEN  THE  SAINT" 

2036  PAUSE  100 
2040  TEMPO  4 

2050A*= " F<16A<16B<1 6C50F  < 1 6A  < 1 6B 
< 16C50F  < 16A  < 16B  < 16C32A  <32F  <32A  <3 
2G  <50A  < 16A  < 16" 

2060B$="G < 16F <32F  <32A (32C32C16B  < 
40" 


20700®= "F <16A  < 16B  < 1 6C32A <32F  <32G 
<32F  <64" 

2080  MUS I C  A* 

2090  MUS I C  B* 

2100  PAUSE  9 
2110  MUSIC  C* 

2120  PAUSE  15 
2130  MUSIC  A* 

2140  MUSIC  B* 

2150  PAUSE  9 
2160  MUSIC  C* 

2170  GOTO  100 
3000  CLS 

3010  REM  **»*********»*»»»» 

3020  REM  »UHAT  SHALL  WE  DO* 

3030  REM  »**********»*»»»*» 

3035  PRINT  AT  5.0i "DEN  VIL  NU  SPIL 
LE" {TAB  1 5 ! " WHAT  SHALL  WE  DO" 

3036  PAUSE  100 
3040  TEMPO  4 

3O50A*="A< 16A<8A<8A<1 6A<8A<8A<16 
D<16F<16A<16G<16G<8G<SG<16G<8G<8 
G  <  16C  <  16E  <  1 6" 

3G60B*="G  <16A<16A<8A<8A<16A<8A<8 
A<16B<16C16D16C16A<16G<16E<16D<3 
2D  <32" 

3070C*= " A  <32A  <32A  < 1 6D  < 1 6F  < 16A  < 1 6 
G  <32G <32G < 1 6C  < 16E  < 16G  < 1 6A  <32A  <32 
A  <  16B  <  1 6C1 6" 

3080D*=  “  D 1 6C 1 6A  <16G<16E<16D  <32D  < 
32" 

3085  FOR  X=1  T02 
3090  MUSIC  A* 

3100  MUSIC  B* 

3110  MUSIC  C* 

3120  MUSIC  DS 
3130  NEXT  X 
3180  GOTO  100 
4000  CLS 

4010  REM  »*****»»* 

4020  REM  »POPCORN* 

4030  REM  »******»» 

4035  PRINT  AT  5. 2i"DEN  VIL  NU  SPIL 
LE  POPCORN" 

4036  PAUSE  100 
4040  FAST 
4050  TEMPO  15 
4060  FOR  P=1  T02 
407©  MUSIC  “A2G2" 

4080  FOR  N=1  T02 

4090  MUSIC  " A2E2C2E2A <4A2G2" 

4100  MUSIC  " A2E2C2E2A  <4A2B2" 

4110  MUSIC  "C>  2B2C) 2A2B2A2B2G2" 
4120  IF  N=1  THEN  MUSIC  "A2G2A2F2A4 
A2G2" 

4130  IF  N=2  THEN  MUSIC  "A2G2A2B2C) 
4E>  2D>  2“ 

4140  NEXT  N 

4150  FOR  N=1  T02 

4160  MUSIC  "E>  20  2G2C>  2E4E>  2D>  2“ 

4170  MUSIC  "E>  20  2G2C>  2E4E)  2f  >  2“ 

4180  MUSIC  “G>  2f  >  2G>  2E>  2-f  >  2E>  2f  >  2 

D>  2“ 

4190  IF  N=1  THEN  MUSIC  "E>2D>2E)2C 

>  2E14E) 2D>  2" 

4200  IF  N=2  THEN  MUSIC  "E>2D)2C)2D 

>  2E>4A2G2" 

4210  NEXT  N 
4220  FOR  N=1  T02 

4230  MUSIC  "C>  16A12C>2D>2E>8D)8C> 
16" 

4240  NEXT  N 

4245  FOR  N=1  T02 

4250  FOR  N=1  T02 

4260  MUSIC  " G 1 6E 1 2G2A2B8 A8 " 

4270  IF  N=1  THEN  MUSIC  "G16" 

4280  IF  N=2  THEN  MUSIC  "G12" 

4290  NEXT  N 
4300  NEXT  P 
4310  SLOU 
4320  GOTO  100 
5000  CLS 
5010  REM  »*»***» 

5020  REM  »MINKA* 

5030  REM  ******* 

5035  PRINT  AT  5. 3!  "DEN  VIL  NU  SPIL 
LE  NINKA" 

5036  PAUSE  100 
5040  TEMPO  6 

5O50A*="  A  <8A  <8A  <SA  <8A  <8C8B  <8A  <3G 
<3G <8G  <8G<8G<SB<8A<SG <SA  <8A  <8A  <8 
A  <8A<8C8B  <8" 

5060B*=”A  <8G  <8B  <8E<8G<8A< 16A  < 16" 


50700®=“ C8C8C8C8C8ESD8CSB <8B  <8B  < 

8B <8B  <SD8CBB <SA  <8A  <SA  <SA  <8A  <8C8B 
<8A<8G  <8B  <8E8" 

5O80D*=  “  G  <  8A  <  1 6A  <  1 6  “ 

5090  MUSIC  A* 

5100  MUSIC  B* 

5110  MUSIC  C* 

5120  MUSIC  D* 

5130  MUSIC  C* 

5140  MUSIC  D* 

5150  GOTO  100 
6000  CLS 

6010  REM  ************* 

6020  REM  »BONDE  MARCH* 

6030  REM  ************* 

6035  PRINT  AT  5.0!  "DEN  VIL  NU  SPIL 
LE  BONDEMARCH" 

6036  PAUSE  100 
6040  TEMPO  4 

6O50A*="E  <8F <8G  < 16E  <8F  <3G  < 160  < 16 
E16C16" 

6060B*="D16D1 6C8B<8A<8G<SG<16E1 6 
C16“ 

6070C*=" D 1 6D 1 6C8B  <  8A  <  8B  <  3C 1 6C 1 6C 
16" 

6G80D*= " D8CSB  < 1 6B  <8A  < 8G  < 1 60  < 1 6E 1 
6C 16D8C8B  <8B  <8A  <8G  < 1 6G  < 16E 1 6C 1 6" 
6090  FOR  N=1  T02 
6100  MUSIC  A® 

6110  MUSIC  B* 

6120  MUSIC  A* 

6130  MUSIC  C* 

6140  NEXT  N 
6150  FOR  M=1  T02 
6160  MUSIC  D* 

6170  MUSIC  A* 

6180  MUSIC  C* 

6190  NEXT  M 
6200  GOTO  100 
7000  CLS 

7010  REM  *************** 

7020  REM  *SE  HAN  KOMMER* 

7030  REM  *************** 

7035  PRINT  AT  5.0!  "DEN  VIL  NU  SPIL 
LE  SE  HAN  KOMMER" 

7036  PAUSE  100 
7040  TEMPO  4 
7050  FOR  A-l  T02 
7060  FOR  N=1  T02 

7070  MUSIC  "D32B <16C16D32G<32A<8B 

<  8C8D8C 16B<16A<64B<8C8D8E8D16D16 
G48D16C10BU0" 

7080  MUSIC  "C10A  < 16G  < 1  OG  <64" 

7090  NEXT  N 

7100  MUSIC  "B <8A  <BB  <8C8B < 16B  < 16A  < 
32G  <32G  <8F  <8G  <8A  <8G  <  1 6G  <  1 6E32c32 
Dl  6E8D&C  16D16" 

7110  MUSIC  " D64D32B  < 1 6C 1 6D32G  < 1 6 A 
<8B  <8C8D8C 1 6B  < 1 6A <32B  <  8C8DSCSD8E 
8D16D16G16D16" 

7120  MUSIC  "C16B <16A<16G<16G<32D3 
2B  <32B <32G <32A <32A <32A<64B<32D32 
D32B<32A<32" 

7130  MUSIC  "A<32G<32" 

7140  NEXT  A 
7150  GOTO  100 
8000  CLS 

8010  REM  **************** 

8020  REM  »SWEET  PLEASURE* 

803©  REM  **************** 

8035  PRINT  AT  5.  O  i  "DEN  VIL  NU  SPIL 
LE  SWEET  PLEASURE" 

8036  PAUSE  100 
8040  TEMPO  3 

SO50A*=  "  C 1 6C 1 6C 1 6C32C 1 6 A  <  1 6B  <  1 6A 
<16G<32G<16F<16G<16G<16G<32G<16B 

<  1 6G  <  1 6A  <  1 6“ 

8G60B*=” B  <32B < 1 6A  <30G  < 1 6F  < 1 6E  <8D 
<8E<SF<8G<16F<32E<16F  <32“ 

80700*= “ A  < 1 6D1 6B  < 1 6C32D16E16F16D 
1 6E32E 1 6C 1 6C16D16C30C 1 6B  < 1 6A  < 1 6G 
<32" 

8080  MUSIC  A* 

8090  MUSIC  B» 

8100  MUSIC  C* 

8110  MUSIC  "A <32" 

Bl 20  MUSIC  C* 

8130  MUSIC  " A  <32A <  1 6A <  1 6A  <  1 6B  <  1 6A 
<30A  < 1 6G  < 16F <32E < 16F  <32" 

8140  GOTO  100 
8500  SAVE  "MUSIK" 

8510  GOTO  10 


o 0#  30 


■  I  dette  racerbilsspil  til  Com- 
modore  64  kan  man  spille  2 
spillere  på  en  gang  (split- 
screen).  Man  kan  også  spille 
mod  computeren  med  man¬ 
ge  forskellige  sværhedsgra¬ 
der.  Spillet  er  delt  op  i  to  dele. 

1 .  del.  Grafik  til  banen. 

2.  del.  Selve  hovedprogram¬ 
met. 

Da  spillet  er  delt  op  i  to,  skal 
man  huske  at  save  1 .  del  efter 
indtastning.  Derefter  indtastes 
anden  del,  som  selvfølgelig 
også  skal  saves.  Spol  båndet 
tilbage  og  load  program¬ 
met.  □ 


Michael  Lauridsen 


CRÅSH  LANDER 


Spillet  Crash  Lander  er  en  n 
version  ai  det  gamle,  og  vel¬ 
kendte,  Bomber  som  blev 
bragt  tørste  gang  i  et  engelsk 
blad .  Vi  viser  her  en  ny  udga¬ 
ve  al  spillet,  hvor  der  både  er 
lyd,  farver  og  brugerdefiner¬ 
bar  grafik. 

Selve  spillet  går  i  al  sin  enkel¬ 
hed  ud  på,  at  du  skal  bombe 
en  storby  så  flad,  at  du  kan 
lande  helskindet.  Spillet  er 
menustyret  ■■■ 

Kasper  Vad 


ssras’i.'scss  ss.fæs  -■ Ll 
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Matematikere  kan  tå  stor 
glæde  at  dette  program,  som 
finder  alle  nulpunkter  (både 
reelle  og  komplekse)  i  et  poly¬ 
nomium  af  vilkårlig  høj  grad. 

Torben  Madsen 


Spillet  ei  en  Amstrad  udgave 
I  at  det  kendte  arkadespil  Ftog- 
ger.  I  denne  udgave  er  der 
|  gjort  god  brug  al  larver  og 
gralik.  For  at  muliggøre  den 
lækre  gralik.  har  vi  været 
nødsaget  til  at  gøre  brug  al 
,  nogle  ekstra  maskinkoderuti¬ 
ner. 

Disse  rutiner  er  lavet  som  ek- 
‘  strå  BASIC  instruktioner  via  de 
såkaldte  RSX's.  Det  betyder 
|  Resident  System  eXtension. 
i  Om  systemet  kan  man  se  me- 
i  re  mere  i  Amsolt's  Amstrad 
Operationg  System  Firmware 
Specilication. 

Når  du  indtaster  programmet 
skal  du  være  opmærksom 
på,  at  de  små  o 'er  der  fore¬ 
kommer  i  listningen  ikke  er 
o'er,  men  derimod  den  lod¬ 
rette  streg,  der  lås  ved  at  tryk- 
'  ke  SHIFT +  ' (snabel  a).  @ 

Når  spillet  er  indtastet,  skrives 
|  GOTO  1800  for  at  SAVE  pro¬ 
grammet.  Når  du  skal  starte 
i  spillet,  tast  CTRL+ENTER.  Du 
kan/skal  ikke  starte  program- 
'  met  nå  andre  måder  I  øvrint 


■  Dette  program  kan  gøre  dig 
sikker  i  alle  relevante  daglig¬ 
dags  spørgsmål,  -  endda  på 
en  morsom  måde. 
Quizmaster  starter  med  at  fyl¬ 
de  skærmen  med  spørgs¬ 
målstegn,  og  venter  på  et 
tasttryk.  Straks  etter  dette  tryk, 
kommer  tørste  spørgsmål. 


Hvis  du  svarer  rigtigt,  vil  du  tå 
en  stigende  lyd.  Tilvarende 
giver  et  torkert  en  nedadgå¬ 
ende  lyd. 

Programmet  er  lavet,  så  det 
accepterer  torskellige  svar. 
F.eks.: 

Hvilket  dyr  kaldes  Jumbo? 
Eletant 


Elelanten 

Er  det  ikke  elelanten? 

Alle  svar  vil  blive  godkendt, 
og  du  vil  tå  "rigtigt'-.  Hvis  du 
taster  Elelanten  (med  stort) 
bliver  dit  svar  torkert 
Bemærk  at  pundtegnet  er 
brugt  som  æ  ogå.  0=ø. 

Du  kan  selv  lave  tiere  eller 


tærre  spørgsmål.  De  nye  da¬ 
talinier  skal  indtastes  med 
spørgsmål,  svar  i  rækketølge . 
Der  er  1 1 3  spørgsmål  i  pro¬ 
grammet,  men  tastes  blot  tid¬ 
ligere  som  data.  vil  du  slippe 
tor  at  taste  alle  data  ind .  □ 

Lars  R.  Salquist 


Alt  om  Spectrum  maskinkode  er  bonen  for  alle,  der  vil  ind 
på  det  store  og  spændende  område,  so,  ^  maskinkode-pro¬ 
grammering  er.  Alt  om  Spectrum  Maskinkode  gennemgår 
på  en  simpel  og  pædagogisk  måde  alle  de  finesser  som 
netop  Spectrum  datamaten  har,  men  er  samtidig  et  godt  ud¬ 
gangspunkt  for  enhver  med  en  Z-80  baseret  computer. 
Bogen  beskriver  alle  instruktionerne  for  Z-80  mikroprocesso¬ 
ren,  og  har  specielle  afsnit  om  betingede  hop,  relative  adres¬ 
ser,  underrutiner,  bitmanipulering,  registeraritmetik,  program¬ 
strukturering  og  praktisk  anvendelse.  Som  eksempel  vises 
hvordan  man  selv  laver  et  automatspil,  med  opbygning 
af  uhyrer,  fremstilling  af  labyrinter,  selvtænkende  rutiner  og 
meget  mere. 

En  lang  række  tabeller  gør  Alt  om  Spectrum  Maskinkode  til 
det  perfekte  opslagsværk  og  desuden  giver  bogen  anvis¬ 
ninger  på  hvordan  man  selv  kan  videreudvikle  rutiner  og  pro¬ 
grammer. 


Køb  bogen  hos  en  af  nedennævnte  62 
Bogpa-forhandlere  eller  ring  til  forlaget  ”ny 
elektronik”  på  telefon  (01)  1 1  28  33. 


■  Dette  program  kan  bereg¬ 
ne  på  hvilken  ugedag,  en 
dato  talder  (også  30.  februar). 
Programmet  er  sikret  mod  al¬ 
le  forkerte  datoer. 


NB!  Programmet  regner  efter 
Gregor  Xin  kalender  (den  vi 
bruger  i  dag)  og  kan  således 
ikke  gå  længere  tilbage  i  ti¬ 
den  end  til  1582.D 

Palle  Lyckegård 


Super  grafik 


■  Her  er  et  ganske  kort  pro¬ 
gram,  som  kan  demonstrere 
AMSTRAD  computerens  læk¬ 
re  farvegrafik,  samt  lydfacili¬ 
teterne.  □ 

Henrik  Rønnest 


AMSTRAD  PROGRA,  ***  GRAFIK  DEMO  *** 

10  ’ 

20  ’  Lavet  af  HENRIK  RONNEST.  1935. 

30  ’ 

40  f a=l : PLOT  1,1,1: MODE  0:INK  0,0:B0RDÉR  0:INK  1,26: PAPER  0:PEN  1 
50  CLS 
60  DEG 

70  FOR  9=1  TO  360  STEP  2 

SO  PLOT  320+200*C0S(9),200+190*SIN(g),fa:fa=fa+l:IF  fa=15  THEN  fa=l 
30  NEXT: fa=15: R=200 : R2=135 
100  FOR  9=1  TO  360  STEP  fa 

110  PLOT  320, 200: DRAW  320+R*C0S (g) , 200+R2  *SIN(g), fa 
120  NEXT 

130  R=R-10: R2=R2-10 

140  f a=f a-1 : IF  fa=0  THEN  150  ELSE  100 

150  Pause=15:F0R  Q=15  TO  1  STEP  -1:F0R  G=1  TO  15:INK  G,Q:S0UND  1 , 9*25, Pause, 15 : N 
EXT : pause=pause-l :NEXT : GOTO  150 


48  tøf* 


Mini  Ram  Editor 


■  Otte  er  de  bedste  program-  RAM  EDITOREN,  hvoretter 
mer  både  seriøse  og  spille-  man  bliver  spurgt  om  start  og 
programmer  skrevet  i  ma-  slut  adressen  på  det  område 
skinkode  tor  at  opnå  hurtig-  at  hukommelsen  der  skal  li¬ 
hed  Hvis  man  ønsker  al  stes  (DUMP'es)  ud  på  skær- 
ændre  på  sit  M/C  program,  men  På  skærmen  vises  så 
t  eks  oversætte  teksten  til  hukommelsens  indhold  i  hex 
dansk,  tår  man  problemer  torm  i  ASCII  torm  Når  man 
Undertegnede  skrev  i  øvngt  har  tundet.  hvortra  RAM  ens 
dette  hile  program  med  hen-  tekststrenge  ligger,  kan  man 
blik  på  at  oversætte  det  be-  så  ændre  disse  (tast  CHAN- 
rømte  tekstbehandlingspro-  GE  d  v  s  T).  hvoretter  man 
gram  AMSWORD.  således  at  kan  indtaste  sin  nye  tekst- 
menu/hjælpe-stden  blev  streng  Hvis  man  ønsker  at 
dansksproget .  DUMP'e  tra  en  ny  adresse  skal 

Selve  RAM  EDITOREN  bruges  man  bare  taste  '2'.  Taster 
ved.  at  man  loader  sit  ma-  man  '3'  tår  men  en  pause  i  sin 
skinkodeprogram  ind  i  com-  udskrivning  og  tastes  SPACE 
puteren  (husk  at  ændre  HI-  BAR'  tortsætter  man  etter  pau- 
MEM  med  MEMORY  kom-  sen.D 
mandoen).  Nu  starter  man  så  Kasper  Vad 


AMSTRAD  PROGRAM,  ***  MINI  RAM.  EDITOR  *** 

10  ’  MINI  RAM  EDITOR 
20  ’ 

30  MODE  2 

AO  WINDQW#2, i, 73, 5, 20:  WINDOWS!, 1, 43, 22, 25:  «XN30W*3» 1 , 80, 1 , 3 

50  LOCATE  22, 1!  PRINT  "MEMORY  DATA  (nex)":  LOCATE  60,1:  PRINT  "ASCII  DATA  ‘ 

60  LOCATE  2,3:  PRINT  "ADR.  0,.  2  3  4567390  BCDEF  012 

3456733ABCDEF " 

70  LOCATE  51,23:  PRINT  "1  =  Char.ee':  LOCATE  51,24:  PRINT  "2  =  Dump":  LOCATE  51,2 
5:  PRINT  "3  =  Pause,  SPACE  =  Cor.tir.ue" 

SO  CLS# 1 

SO  INPU7#1 , "Start  ad resse"  ;  startad r  :  I-  startadr<0  THEN  startac.  r=start*c  r +2+16 
100  INPUTttl ,  "Siut  adresse1  5  s  i  utad  r  :  IF  s;utadr(0  THEN  s  utad r=s i utad r+2+16 
110  CLS#l:  PRZNT*1.  "MEMORY  DUMP:  &  ' ; r!EX*Cstartac r )  ; "  TC  4"  5  HEX*<s  i  utad r )  ; 

•.20  CLS#2 

130  FOR  merodump=startad  r  TO  slutadr  STEP  16 
140  PRINT#2*  HEX$ (memdUMP,  4) 5 "  "  ; 

150  FCR  metn=0  TO  15:  PRINT#2,  HEX$ ( PEEK (memaump+mem) ,  2)  ;  " 

160  NEXT  ment:  PRINT#2,  "  " ; 

170  FOR  mefrt=0  TO  15:  ase  i  i  =PEEK(memdUMP+Mem) 

130  PRI NT#2, CHR$ ( 24  AND  ase  i  i > 127) ;CHR$(asc . i  +  (asc i  i -46)*< (ase  i  i  CR  159) =159>+12 
3+ (ase  i  i  >  159) '.)  ;CHR$(24  AND  ascii>127); 

ISO  .  n$=INKEY$ 

200  IF  i  n$=" 1 "  THEN  250  ELSE  IF  in*="2"  THEN  SO 

210  IF  ir.*=“3"  THEN  WHILE  INKEYSO"  " :  WEND 

220  NEXT  mem 

230  NEXT  memdump 

240  GOTO  30 

250  CLS#1 

260  LOCATE  2,23:  INPUT#1, "Chanse  memory  from  location  (nex)  ", chstart 
270  INPUTttl ," Input  characters  to  be  inserted  ", chars$ 

280  chstart=ehstart-l 

290  FOR  Ioop=1  TO  LEN(ehars$) 

300  P0KE  chstart+ioop,  ASC(.v!ID$(chars$,  ioop,  D) 

310  NEXT  Ioop 


Talpusleri 


■  Her  er  sd  en  computerud¬ 
gave  al  det  gode  gamle  BOSS 
spil.  som  mange  nok  i  tidens 
løb  har  moret  sig  med.  Pro¬ 
grammet  er  selvforklarende, 
og  meget  struktureret  i  opbyg¬ 
ningen  Det  er  ligeledes  farve- 
lyldt  og  flot  i  opsætningen. 
Derfor  -  skynd  dig  at  prøv  det 
før  din  nabo. □ 

Svend  Erik  Pedersen 


ØH  51 


■  Programmet  er  et  selvtcen- 
kende  kryds  og  bolle,  der  i  de 
tørste  spil  kun  kender  de 
grundlæggende  regler  tor 
spillet,  men  som  hver  gang 
det  dummer  sig  aldrig  vil  gen¬ 
tage  netop  den  fejl  det  lige 
gjorde 

På  den  måde  kan  man  i  star¬ 
ten  slå  den  uden  så  meget  be¬ 
svær,  men  efter  ca.  30  neder¬ 
lag  er  den  sej  og  etter  40 
uovervindelig.  Du  harX'erne 
og  får  lov  til  at  starte. 

Felterne  har  følgende  numre: 

123 

456 

789 

For  at  stimulere  stormester  reg¬ 
ler.  spilles  der  med  hhv.  rørt 
og  sluppet  brik 


Opbygningen  al  program¬ 
met  går  kort  fortalt  ud  på  at 
X'erne.  O'erne  og  de  blanke 
pladser  nummereres  med 
hhv.  1.  2  og  0. 

Pladserne  lagres  så  som  f  eks 

2 1 0020 1 2 1  der  ville  svare  til 

OX- 

-O- 

XOX 

Derefter  omregnes  der  fra  tre¬ 
talssystemet  til  decimalsyste¬ 
met.  og  på  den  måde  gem¬ 
mes  hver  al  de  ca .  20  000  for¬ 
skellige  stillinger  efterhånden 
i  torm  af  decimaltal. 
Programmet  passer  til  de  fleste 
former  for  basic.  og  kan  ellers 
konverteres  relativt  nemt  1 

Jens  Peter  Meilvang 


llllllllllllll 


MStm  1170  ’DIM 

430  If  RUMISLETIOKR  THEN  BEEP:60T0  410 

UO  GOTO  1040  'TEGN 

440  RUM (SLET) =0:GEMF=SLET 

120  REN***»*  KOR  ***** 

450  L0CATE  4, 40, 1 :PRINT  “Set  felt  :  :S«€T=V«L( INPUT* ( 1 ) ) 

130  REM*»***»***»»»*** 

460  L0CATE  4. 51:  PRINT  SÆT 

140  RIH®E=RUND£»1 

470  IF  SÆTO  OR  SÆT=SLET  OR  RUMISÆTIOO  THEN  BEEP:60T0  450 

150  G0SUB  380 

480  RUM(SÆT)=KR:6ENS=SAET 

160  TEGN=KR:G0SUB  500 

490  RETURN 

170  1F  RUNDE=> 3  THEN  CHEK=KR:G0SUB  790  '  3  Paa  STRIBE 

500  REM*****  SÆT  i  SLET 

180  1F  VUNDET=1  THEN  RIM(GEMF)=KR:RUM(GEMS)=0:60T0  950 

510  REM*********************** 

190  REN*****  Artificial  Intelligense  ***** 

520  IF  RUNDE (=3  THEN  540 

200  REM*********************************** 

530  L0CATE  INT(SLET/3. 1)*6*4, ( SLET- < INT < SLET /3. 1 ) *3 ) ) *12-5 : PR I NT  *  " 

210  SLET=0:SAET=0:TEGN=B0 

540  L0CPTE  INT  (SÆT/3.  l)*6+4.  (SÆT- (INT (SÆT/3. 1)*3) ) *12— 5: PRINT  TEGN*(TEGN) 

220  IF  RUNDE=>2  THEN  CHEK=KR:S0SUB  560 

550  RE’URN 

230  IF  RUNDE<=3  THEN  260 

560  REM*****  KON  FA  3  PS’  ***** 

240  SLET=SLET*1:S0ET=0 

570  REH»********«**»****»*»»**» 

250  IF  RUM (SLET)! ) BO  THEN  330 

580  PS=O:TK=0:F0R  Y=2  TO  1  STEP  -!:TUR=0:F0R  X=!  TO  9 

260  SA£T=SAET*1 

590  IF  RUM (X  >  =V  THEN  TUR=TUR*1:BR(TUR)=X 

270  !F  RUM (SÅET i  OO  OR  SAET=SlET  THEN  310 

600  ÆXT  X 

280  RUM  (SÅET)  =B0 :  RUIM  (SLET )  =0 

610  FOR  X=1  TO  3:C1=INT(X«. 5*.5):C2=INT(X*.5*2) :AKTU=4-X 

290  G0SU8  850: IF  OK=0  THEN  370 

620  FOR  Z=1  TO  9 

300  RUM (SAET)=0: RUM (SLET) =B0 

630  IF  RUM( Z) =0  AND  V(BR(C1>)*V(BR(C2))+V(Z>=15  THEN  PS=Y : TK=Z : SLET=BR (flKTU) 

310  IF  SÆT  (9  THEN  260 

640  NEXT  Z,X:F0R  X=1  TO  3:BR(X)=0:NEXT  X,Y 

320  IF  RUNDE (=3  THEN  340 

650  IF  PS=0  THEN  RETURN 

330  IF  SLET  (9  TICN  240 

660  SÆT=TK 

340  L0CATE  B,40:PRINT  “0pgir...“ 

670  IF  os=B0  THEN  G0SUB  500:LOCATE  8,40:PRINT  “Jeg  vanOt...  ":COMP=COMP+1 : RETURN 

350  IF  RUNDE) 3  THEN  RUM(GEMF)=KR 

1040 

360  RUM (6EMS)=0: GOTO  950 

680  RUM ( SRET) =B0 : Y=0 

370  G0SUB  500: GOTO  140 

690  IF  RUNDE (=3  THEN  760 

380  REM*****  INPUT  ***** 

700  Y=Y*1 

390  REM***************** 

710  IF  RUM(Y)  OBO  OR  Y=SAET  THEN  740 

400  IF  RUNDE (=3  THEN  450 

720  RUM(Y)=0:60SUB  850: IF  0K=!  THEN  RUM (Y)=B0: GOTO  740 

410  L0CPTE  6, 40, 1:PRIMT  “Slet  felt  :  :SLET=VftL( INPUT* < 1) > 

730  TEGN=B0:SLET=Y:G0SUB  500:RETURN  140 

420  L0CATE  6,51:PRINT  SLET 

740  IF  Y  <9  THEN  700 

52  &fl 


750  RUM  <  6EMF ) =KR : HUM  <  GEHS ) =0 : GOTO  780 


760  GOSUB  850 

770  IF  QK=0  THEN  GOSUB  500: RETURN  140 

780  RiJI(SflET)=0:RUN(GENS)=0:L0CflTE  8,40:PRINT  "0pgir...":RETU9N  950 
790  HEN*****  3  PS  ***** 
m  ren***»**»***»***»* 

810  5UN=0 : VUNDET =0 : FOR  X=1  TO  9 
820  IF  RUM(X)=CHEK  THEN  SUH=SU**V(X) 

830  NEXT  X:  IF  SLW=I5  THEN  VliN0ET=l 
840  RETURN 

850  REN««**  KPP  JEG  STflfl  HER  «*** 

870  SUN=0:FOR  X=1  TO  9 

880  IF  SPEJLOO  THEN  SUH=SUH*STED(X)*3A(9-X>  ELSE  SUH=SUN*RUmX)*3A(9-X) 
890  NEXT  X 

900  BOG=INT(SUN/8.0OOl)*l:DOLLflR=INT(BOG/255.0Ol) :UDE=BOG-(DOLLAR*255) 

910  IND= (SUN- (BOG- 1 ) *8) -1 :flSK=flSC(NID*(BR» (DOLLAR) , UDE,  1) ) 

920  l€M=ASK 

930  0K=S6N (ASK  AND  2AIND) 

940  RETURN 

950  REN*****  gen  stilling  ***** 

960  REN************************ 

970  LOCATE  9, 40: PRINT  "Du  vandt... " : SPIL=SPIL+1 : RESTORE  1400 
980  FOR  SPEJL=1  TO  8 

990  FOR  TUR=1  TO  9: READ  A:STED(TUR)=RUH(A) :NEXT  TUR 
1000  60SUB  850 

1010  IF  0K=0  THEN  NEMSMEN*2AIND 
1020  NIIDS  (BR*  (DOLLAR) ,  UDE,  1  )=CHR*  (MEM) 

1030  NEXT  SPEJL 

1040  REN*****  NYT  SPIL  ***** 

1050  REM*m******«***«***»* 

1060  IF  RUNDE  O  O  THEN  FOR  X=1  TO  2000:NEXT  X 

1070  G£MF=0 : VUNDET=0 : SLET =0 :SPE JL=0 : RUNDE=0 : FOR  X=1  TO  9:RUN(X)=0:NEXT  X 
1080  FOR  X=1  TO  3:BR(X)=0:NEXT  X 
1090  CLS: SCREEN  0,0,0:HIDTH  80:Ca0R  1 
1100  PRINT  Ot 

1110  FOR  X=1  TO  3: FOR  Y=1  TO  5:PRINT  Nt:NEXT  Y:PRINT  St:NEXT  X 
1120  LOCATE  19,1: PRINT  Nt 


1130  COLOR  2 
1140  LOCATE  21,1:PRINT 
1150  LOCATE  23,  UPRINT 
1160  COLOR  12:6OT0  140 
1170  REN««*  INIT  «*** 

1190  SCREEN  0:HIDTH  40:CLS:KEY  OFF 

1200  COLOR  4,0:LOCATE  2,9,0:PRINT  CHRt(213)+STRINGt(21,205)*CHRt(184) 

1210  LOCATE  3, 9,0: PRINT  CHRI(179)*STRINGt(21,32)*CHRt(179) 

1220  LOCATE  4,9, 0:PRINT  CHR*<179) ;:COLOR  14:PRINT  ■  HASTERLESS  I  ";:COLOR 
4:PRINT  CHRt(179) 

1230  LOCATE  5,9,0:PRINT  CHRt(179)+STRINGt(21,32)*CHRt(179) 

1240  LOCATE  6,9,0:PRINT  CHR» (212) +STRINB* (21, 205> *CHRS ( 190) 

1250  COLOR  15, 0,0:L0CATE  8,20,0:PRINT  "BY" 

1260  LOCATE  10,5,0:PRINT  "Nichael  Seifert  8  Fyr  Neilvang" 

1270  COLOR  13,0:L0CATE  23,3,0:PRINT  ■  Copyright  1985(0  by  PPC  Software  ■ 

1280  COLOR  15:L0CATE  16, UINPUT  "NAVN  :  ‘.NAVNt 
1290  IF  NAVNt=“  THEN  NAVNt="SPILLER" 

1300  NAVNt=NAVNt*“  :  ■ 

1310  DIN  BRt<9> 

1320  0*=‘  | - 

1330  Nt=* 


1360  TEGNt ( 1 ) ="0‘:TEGNt (2)="X" :KR=2:B0=1 :TN=0 
1370  FOR  X=0  TO  9:BRt(X)=STRINGt (255,0) :READ  i 
1380  RETURN 

1390  DATA  100,4,3,6,9,5,1,2,7,6 
1400  DATA  1,2, 3, 4, 5, 6, 7, 8, 9 
1410  DATA  7,4, 1,8, 5, 2, 9, 6, 3 
1420  DATA  9, 8, 7, 6, 5, 4, 3, 2,1  . 

1430  DATA  3, 6, 9, 2, 5, 8, 1,4,7 
1440  DATA  3,2, 1,6, 5, 4, 9, 8, 7 
1450  DATA  1,4, 7, 2, 5, 8, 3, 6, 9 
1460  DATA  7, 8, 9, 4, 5, 6, 1,2, 3 
1470  DATA  9, 6, 3, 8, 5, 2, 7, 4,1 


Debug 


Memograph/ 

Memotech  halvdelen  al 
listningen  laiat  ua.  Den  kom¬ 
mer  her 


2010 

2015 

2020 

2030 

2040 

2850 


3010 

3015 

3020 

3030 

3ø4ø 


5øøø 


FOR  X=ø  TO  255 
LET  Y«ALF*X*BET+95 
IF  Y<ø  OR  Y>191  OR  X 
PLOT  X+127, Y 
NEXT 

FOR  X«ø  TO  255 
LET  Y*ALF  4X+BE  T +95 
IF  <■  -Y*13ø».  EET  12  ■  ■ 


)  OR  X>127  THEN  GOTO  1150 


i’+191*2*BET»191  OR  - 


PLOT  - 
NEXT 

CSR  0,22  PRINT  "TRYK  EN  TAST" 

LET  LMINKEY*  IF  LS=""  THEN  GOTO  1210 
GOTO  3€ø 

CLS 

CSR  5,1  PRINT  "BEDSTE  RETTE  LINIE  " 

CSR  5.3  PRINT  “R=“;R1 

CSR  5,2  PRINT  " Y=“ i RLF ; ”X*< " ; BET , “ )" 

CSR  5,5;  PRINT  "HVOR  MANGE  Y-VCRDIER  VIL  DU  HAVE" 

CSR  4,7  PRINT  “FOR  HVILKE  X  VIL  DU  HAVE  Y-VCRDIER" 
LET  R*8 

FOR  Nl=l  TO  M*l 
INPUT  X 

LET  Y-ALF*X+BET 

CSR  5,R  PRINT  "(X,Y)»<  "iXi  “,  “;Y; "  >" 

LET  R=R+1 

IF  N1=M  THEN  CSR  15,22'  PRINT  "TAST  ET  TAL  «,  <RET>” 
NEXT 

GOTO  360 
CLS 

CSR  5,1  PRINT  "BEDSTE  RETTE  LINIE  " 

CSR  5.3  PRINT  "R=";R1 

CSR  5,2'  PRINT  “ Y=" ;  ALF ;  “X+i;  "  i  BET  i '•  )“ 

CSR  4.5  PRINT  “HVOR  MANGE  X-VCRDIER  VIL  DU  HAVE" 

CSR  4.7  PRINT  "FOR  HVILKE  Y  VIL  DU  HAVE  X-VCRDIER" 
LET  R=8 

FOR  Nl=l  TO  M+l 
INPUT  Y 

LET  X=<  Y-BET  VALF 

CSR  5,R  PRINT  "<X,  Y)=<  “;X;  “,  “i  Yj "  >• 

LET  R=R+1 

IF  N1=M  THEN  CSR  15,22'  PRINT  "TAST  ET  TAL  8.  <RET>" 
NEXT 

GOTO  360 
GOTO  lø 
CLS  STOP 


GOTO  1200 


Du  skal  holde  styr  på  en  ung- 
domslorbryder.  der  tarer  rund 
ti  et  ni-etagers  højhus  og  over¬ 
male  væggene  med  graffiti 
slagord. 

Han  skal  undgå  at  blive  fan¬ 
get  af  vagtmanden,  der  forføl¬ 
ger  ham  overalt  i  skyskrabe¬ 
ren.  Betjenten  kan  holdes  hen 
ved  at  lægge  en  bombe  (joy- 
stick  ned,  keyboard  9).  som 
eksploderer  kort  tid  efter.  Vagt 
politimanden  dør  kun.  hvis 
han  er  lige  over  bomben  un¬ 
der  eksplosionen.  Selv  om 
han  dør,  varer  det  ikke  læn¬ 
ge.  inden  en  kollega  dukker 
op.  På  hver  etage  er  der  to 
elevatorer,  en  op  og  en  ned. 
Ved  hjælp  af  dem  kan  vores 
maler  bevæge  sig  rundt  i  hu¬ 
set  .  Graffitien  skrives  på  væg¬ 
gen  ved  at  trykke  fire  eller  nul . 

Bogstaverne  skal  skrives  i  den 
rigtige  rækkefølge:  Det  første 
skal  skrives  til  højre  for  eleva¬ 
toren.  På  en  skærmradar  kan 
du  se,  hvilke  etager  der  er 
skrevet  færdige.  Er  alle  etager 
overmalede,  går  du  videre  til 
et  nyt  hus. 

Torben  og  Olav  Kjær 


202  REM 

FOR  ■ 
■  vpf.C. 


'04 
2  10  READ 

'  240  DfiTfi 


260  DfiTfi 
270  DflTn 
280  DfiTfi 
250  DfiTfi 
^300  DfiTfi 
310  DfiTfi 
31S  DfiTfi 
3.2S3 
317  GO  SU 


360 


400  OUER 


430  PRINT 


KOM  DET  OMSIDER  -  "ALT  OM  DATA’S"  STORE 


COMMODORE  BLAD 


FYLDT  MED  TESTS  AF  SPÆNDENDE  ARTIKLER  OG 
TIPS.  OG  MED  EN  GRATIS  FLEXPLADE 
MED  6  STÆRKE  C-64  PROGRAMMER  PÅ. 


Læs  bl.a.: 

Kæmpetest  af  den  brandvarme  Commodore  128, 
Voice  Master  -  64’eren  som  "bugtaler". 
SAS-piloten  tester  flysimulatorer. 

Tips  og  tricks  til  C-1 6  og  Plus/4. 

Commodore  64  leger  videokamera. 

Memory  Map  og  maskinkode  64. 

1541  mod  konkurrenterne. 

Vind  Fuji  printer. 

Alt  om  Comal. 


KØB  STRAKS 
"COMPUTER”  NR.  1 


HOS  DIN  BLADHANDLER- 


PRIS  KUN  KR.  29,85. 


fordel  eller?' 

Pacral  til  64  ereii 


VI  TESTER: 

iMSXha^ 


22_SLDIB 


mcu  i  i  • 

programmer  i 


Køb  det  nye  "hotte" 
nummer  cd  "AB  om  Data 
i  kiosken.  Kun  kr.  23,85. 


STOR  N? HED: 

Sådan  tipper  dU  L  gratis  tu  din  bopæl, 

pr.  datamat _ Ulm***  12  numre  koster  kr.  262.35. 


Du  kan  også  få  bragt  bladet 
gratis  til  din  bopæl. 


Op  at  kart  efter  et  01_j  j  28  33 

computer _ 


